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IDENTIFICATION 
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SEQ 2 



i 


1 . ABSTRACT 


4 

5 
6 
7 


THE DHll STATIC LOGIC TEST IS DESIGNED TO PRQVIDF A MFAN'-. 
FOR TESTING THE CORRECT FUNCTION OF ALL REAO/URJTE BITS 
IN T>(t FOLLOWING DHll REGISTERS- 


a 

9 


OHll SYSTEM CONTROL REGISTER 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 


DHll LINE PARAMETER REGISTER 


OHll BREAK CONTROL REGISTER 


DHll SILO STATUS REGISTER 


IN ADDITION. TESTS ARE PROVIDED TO CHECK THE FUNCTION 
OF THOSE BITS THAT ARE READ ONLY IN MAINTENANCE MODE, 
ALSO PROVIOtJ ARC TC5TS OF REGISTER ADDRESSABILITY. 
AND OF THE FUNCTION OF MASTER CLEAR. 

THE DIAGNOSTIC HAS BEEN WRITTEN SO THAT THE TESTING 
OF EACH FUNCTION IS CONTAINED IN AN INDIVIDUAL 
TtST LOOP. 



SEQ 3 
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1 

2 3. REQUIREMENTS 

3 

4 2.1 EQUIPMENT 

5 

6 PDP-11 FAMILY STANDARD COMPUTER WITH 8KU Of MEMORY 

7 ASR-33 TELETYPE OR EQUIVALENT 

8 OHll ASYNCHRONOUS MULTIPLEXER 

9 OMll MAINTENANCE CARD INSTALLED 
10 

11 2.2 STORAGE 

12 

13 THE PROGRAM LOADS INTO 8KU Or MEMORY 

14 

15 3. LOADING PROCEDURE 

16 

17 THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 

18 CAN TO BE USED. OR CAN BE USED WITH XXOP. 
19 

20 4. STARTING PROCEDURE 

21 

22 4.1 CONTROL SUITCH SETTINGS 
23 

24 4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 

25 

26 ALL CONSOLE SUITCHES DOUN 

27 

23 4.1.3 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
29 AFTER PROGRAM RESTART 

30 

31 SUOO-1 
32 

33 4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 

34 

35 SUOl-1 
?6 

37 4.2 STARTING ADDRESS 

38 

39 THE STARTING ADDRESS FOR ALL TESTS IS 000200 

40 

41 THE RESTART ADDRESS FOR ALL TESTS IS 0002000 

42 

43 THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 

44 

45 4.3 PROGRAM AND/OR OPERATOR ACTION 

46 

47 4.3.1 INITIAL PROGRAM START 

48 

49 4.3.1.1 LOAD PROGRAM INTO MEMORY 

50 4.3.1.2 LOAD ADDRESS 000200 

51 4.3.1.3 CLEAR CONSOLE SUITCHES 

52 4.3.1.4 PRESS START 

53 4.3.1.5 THE PROGRAM UILL TYPE "DHll STATIC LOGIC TEST" 

54 AND UILL THEN TYPE "VECTOR ADDRESS-" AND UAIT FOR AN 

55 INPUT FROM THE TELETYPE KEYBOARD. 



SEQ 4 
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1 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VEC10R 

2 FOR THE OHll TO BE TESTED FOLLOUEO BY <CARi<IAGE RETURN> 
3 

4 NOTE: UORDS IN ANGLE BRACKETS. I.E. <CARRIAGE RETURN> MEAN THAT 

5 THE TELETYPE KEY UITH THE NAMED FUNCTION SHOULD BE STRUCK 
6 

7 IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 

8 UILL TYPE "?•' AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1,5 
9 

10 4.3.1.7 THE PROGRAM UILL TYPE "CONTROL REGISTER ADDRESS " 

11 AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
12 

13 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 

14 DHll TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
15 

16 IF AN INCORRECT ADDRESS IS TYPED. THE PROGRAM WILL TYPE 

17 "?" AND UILL THEN REPEAT THE MESSAGE OF 4.3.1.7 
18 

19 4.3.1.9 THE PROGRAM UILL TYPE "R" TO INDICATE THAT IT IS 

20 ABOUT TO START TESTING, AND THEN TESTING UILL BEGIN 
21 

22 4.3.2 PROGRAM RESTART UITH ALL SWITCHES DOUN 
23 

24 4.3.2.1 PERFORM 4.3,1.2 TO 4.3.1.5 
25 

26 4.3.2.2 THE PROGRAM WILL TYPE "DHll STATIC LOGIC TEST" 

27 AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
28 

29 4.3.3 PROGRAM RESTART WITH SUOO-1 
30 

31 4.3.3.1 LOAD ADDRESS 000200 
32 

33 4,3,3.2 SET SWOl-1 
34 

35 4.3,3.3 PRESS START 
36 

37 4.3.3.4 THE PROGRAM UILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
38 

39 4.3.4 PROGRAM RESTART UITH SUOl-1 
40 

41 4.3,4.1 LOAD ADDRESS 000200 
42 

43 4.3,4,2 SET SUOl-1 
44 

45 4.3,4,3 PRESS START 
46 

47 4,3,4.4 THE PROGRAM UILL TYPE "DHll STATIC LOGIC TEST" 

48 AND WILL THEN TYPE "TEST PC-" AND UILL UAIT FOR AN INPUT 

49 FROM THE TELETYPE KEYBOARD 
50 

51 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT UHICH THE PROGRAM IS TO 

52 BE STARTED FOLLOUEO BY < CARRIAGE RETURN> 
53 

54 4.3.4.6 THE PROGRAM UILL TYPE R TO INDICATE THAT IT HAS STARTED 

55 AND UILL START TESTING AT THE SELECTED TEST. 
56 

57 NOTE: CARE MUST BE TAKEN UHEN THS FEATURE IS USED. SINCE 



SEQ 5 
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59 'HERE IS NO PROTECTION AGAINST SELECTING AN MDDRESS THAT 

59 IS IN THE MIDDLE OF A TEST 

60 

61 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 

62 SET SU14=1 BEFORE ENTERING THE TEST ADDRESS 
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1 

2 5. OPERATING PROCEDURE 

3 

4 5.1 OPERATIO^IAL SWITCH SETTINGS 

6 SU15-1, HALT ON ERROR 

7 - SM14-1. LOOP ON CURRENT TEST 

8 SU13-1, SUPPRESS ERROR TYPEOUT 

9 SUll-1. INHIBIT ITERATIONS 

10 SUlO-1. ESCAPE TO NEXT TEST ON ERROR 

11 SU09-1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 

12 SUOl-1, START PROGRAM AT SELECTED TEST 

13 SUOO-1. CHANGE PARAMETERS AT PROGRAM RESTART 
14 

15 5.2 SUBROUTINE ABSTRACTS 

16 

17 5.2.1 TRAPCATCHER (LOCATIONS 000000 000776) 

18 

19 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 

20 AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 

21 WITH THE FOLLOWING SEQUENCE 
22 

23 2 

24 0 

25 4 

26 0 
27 

28 772 

29 0 

30 776 

31 0 
32 

33 IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 

34 WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 

35 WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

36 BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 

37 TRAP OR INTERRUPT OCCURED. 
38 

39 5.2. 2 START (PROGRAM INITIALIZATION) 

40 

41 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS. 

42 TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 

43 AND CONTROL REGISTER ADDRESSES OF THE DHll TO BE TESTED. 
44 

45 5.2.3 BEGIN (PROGRAM START AND RESTART) 

46 

47 THIS ROUTINE IS ENTERED IMMEOIATLY AFTER "START" 

48 AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 

49 THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 

50 AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

51 TESTING WILL BEGIN. IF SW01>0 WHEN THIS ROUTINE IS ENTERO 

52 TESTING WILL START AT Tl (TEST 1). IF SWOl-1 WHEN 

53 THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC 

54 ENTERED FROM THE TELETYPE KEYBOARD. 
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SEQ 7 



I 

2 S.2.4 _0P CENO OF PASS) 

3 

4 THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 

5 HAVE BEEN COMPLETED. THIS K'"ITINE TYPES THE MAINDEC 

6 IDENTIFICATION CODE OF THE PROGKAM. CLEARS ERROR FLAGS 

7 AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 
0 UNDER ACTll OR DDP. THE ROUTINE CHECKS FOR RETURN TO 

9 THE ACTll OR DOP MONITOR. IF THE PROGRAM IS NOT UNDER 

10 nONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 
11 

12 5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 

13 

14 THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

15 THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

16 A) IF SW10»] , THE ROUTINE WILL TRANSFER TO THE NEXT TEST 

17 IN SEQUENCE. AFTER CLEARING ERROR FLAGS. 

18 B) IF SUll'l. THE ROUTINE WILL TRANSFER TO THE NEXT TEST 

19 SEQUENCE. AFTER CLEARING ERROR FLAGS. 

20 C) IF SW14-1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 

21 REGARDLESS OF THE ITERATION f OUNT . 
22 

23 IF NONE OF THE ABOVE IS TRUE. THE ROUTINE WILL ADD 1 

24 TO THE COUNT OF TEST ITERATIONS. AND COMPARE THIS VALUE 

25 TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 

26 IF THESE NUMBERS ARE EQUAL. THE ROUTINE WILL TRANS^^ER 

27 TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 

28 EQUAL. THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 
29 

30 5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 

31 

32 THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 

33 THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 

34 VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS EN-^ERED IN 

35 THOSE TESTS. WHETHER OR NOT AN ERROR OCCURS. 

36 IF SW09-1. THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 

37 TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 

38 UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 

39 OPTION IS SELECTED. THE ROUTINE "SCOPER" IS NEVER ENTERED 

40 AND ITERATION COUNTS WILL NOT BE UPDATED. 
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2 5.2.7 ERRORS (ERROR HANDLER) 

3 

4 THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 

5 WITH ALL CONSOLE SWITCHES DOWN. THE ROUTINE PROCEDES AS FOLLOWS: 

6 A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 

7 IS ACCESSED THRU THE STACK. AND THEN THE EMT INSTRUCTION 

8 ITSELF IS FETCHED. THE 8 LSB OF THE EMT 

9 INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 

10 USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 

11 DATA STORAGE LOCATIONS. 

12 8) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 

13 DURING THIS PASS. A COMPLETE ERROR REPORT IS MADE 

14 IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 

15 THE CURRENT PASS. ONLY THE DATA RELATING TO THE FAILUER 

16 IS TYPED. IF SW13-1. NO ERROR TYPEOUT IS MADE. 

17 C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SW15-1 

18 THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 

19 THE ERROR ROUTINE IN RO. IF SW15-0, THE PROGRAM WILL 

20 NOT HALT. BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 

21 D) IF SWlO-0. THE ROUTINE WILL RETURN 

22 TO THE TEST IN PROGRESS. IF SW10«1. THE ROUTINE WILL 

23 ABORT THE CURRENT TEST. AND TRANSFER TO THE NEXT 

24 TEST IN SEQUENCE. THRU THE ROUTINE "SCOPER". 
25 

26 5.2.8 TRPSRV (TRAP DECODE AND DISPATCH) 

27 

28 THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 

29 THAT CAUSED TH PROGRAM INTERRUPT. AND TRANSFERS CONTROL 

30 TO THE ROUTINE THRU THE TABLE "TRPTAB" USING THE 8 LSB 

31 OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 

32 THE ROUTINE TO BE ENTERED. 
33 
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2 5.3 PROGRAM AND OR OPEPATOR ACTION 

3 

4 5.3.1 PROGRAM START WITH ALL SUITCHES DOUN 

5 

6 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 

7 BEHAVIOR. 
8 

9 5.3.1.2 AFTER "R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 

10 UILL BEGIN. EACH TEST UILL BE REPEATED A SELECTED NUMBER 

11 OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 

12 AND THEN THE PROGRAM MILL PROCEED TO THE NEXT TEST. 
13 

14 5.3.1.3 UHEN ALL ITERATIONS HAVE BEEN COMPLETED. THE PROGRAM 

15 WILL TYPE "CZDHA D" AND THEN RESTART TESTING AT TEST 1 

16 (LOCATION Tl IN THE PROGRAM). 
17 

18 5.3.1.4 IF AN ERROR OCCURS. THE PROGRAM WILL TYPE AN APPROPRIATE 

19 ERROR MESSAGE. AND THEN CONTINUE THE TEST IN PROGRESS. 
20 

21 5,3.2 PROGRAM START WITH SW00«1 

22 

23 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 

24 

25 5,3.3 PROGRAM START WITH SWOl-1 

26 

27 5.3.3.1 REFER TO SECTION 4.3,4 FOR INITIAL PROGRAM BEHAVIOR 

28 

29 5.3.3.2 TEST EXECUTION UILL START AT THE ADDRESS SPECIFIED 

30 AND UILL CONTINUE AS DESCRIBED IN 5.3.1.2 
51 

32 5.3.3.3 AFTER "CZDHA-D" HAS BEEN TYPED. THE PROGRAM UILL 

33 RESUME TESTING AT TEST 1 
34 

35 5.3.4 PROGRAM OPERATION UITH SU15-1 

36 

37 SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR. 

38 THE PROGRAM UILL HALT AFTER THE ERROR TYPEOUT. AND 

39 THE PC»2 OF THE CALL TO THE ERROR ROUTINE UILL BE 

40 DISPLAYED IN RO. 
41 

42 5.3.5 PROGRAM OPERATION WITH SW13-1 

43 

44 SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 

45 

46 5.3.6 PROGRAM OPERATION WITH SW11»1 

47 

48 SAME AS 5.3.1 EXCEPT THAT EACH TEST UILL BE REPEATED ONCE 

49 ONLY 
50 

51 5.3.7 PROGRAM OPERATION UITH SWlO-1 

52 

53 SAME AS 5.3.1. EXCEPT THAT IN THE CASE OF AN ERROR 

5« THE CURRENT TEST WILL BE ABORTED. AND THE PROGRAM 

55 UILL PROCEED TO THE NEXT TEST IN SEQUENCE. 
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1 

2 5. CCONT'D) 
3 

4 5.3.8 PROGRAn OPERATION UITH SU14-1, OR SU09-1 

6 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 

7 SEE SECTION 6.3 FOR THEIR USE. 
8 

9 6. ERRORS 
10 

11 6.1 ERROR HALTS 
12 

13 THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 

14 IS AS FOLLOWS 
IS 

16 PC*2 MESSAGE 

17 HEADER CIK APPLICABLE) 

18 DATA (IF APPLICABLE) 
19 

20 UHERE 

21 PC*2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER ♦ 2 

22 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 

23 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 

24 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 

25 IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 

26 PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 

27 DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 
28 

29 IF NO DATA IS ASSOCIATED WITH THE ERROR 

30 THE COMPLETE ERROR MESSAGE IS TYPED. 
31 

32 6.1.1 ERROR DESCRIPTIONS 
33 

34 SEE LISTING FOR DETAILS OF ERRORS 
35 

36 6.2 ERROR RECOVERY 
37 

36 6.2.1 SWlS-0 
39 

40 IF THE PROGRAM IS RUN WITH SWIS'O, NO OPERATOT ACTION IS 

41 REQUIRED TO CONTINUE TESTING 

42 6.2.2 SWlS-1 
43 

44 IF Tf« PROGRAM IS RUN WITH SW15-1. TO CONTINUE TESTING 

45 AFTER THE PROGRAM HAS HALTED, PRESS THE FROCESSOR 

46 CONSOLE CONTINUE SWITCH 
47 

48 6.3 SCOPE LOOPING 
49 

50 6.3.1 TO SCOPE ON A SPECIFIC TEST, SET SW14-1 AND SW13-1 

51 THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE 

52 SAME TEST. AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 
53 

54 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 

55 A TEST, SET SW09»1 TO FREEZE THE DATA 

56 (SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 
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1 

2 6. (CONT'D) 

3 

4 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

6 PERFORM SECTION 4.3.4 UITH SU14-1 
7 

a 7. RESTRICTIONS 
9 

10 7.1 STARTING 
11 

12 THE DHll TEST CARD MUST BE INSTALLED 
13 

14 7.2 RUNNING 
15 

16 NONE 
17 

16 8. MISCELLANEOUS 
19 

20 8.1 EXECUTION TIME 
21 

22 THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

23 TYPEOUT OF CZDHA-D TO END OF TYPEOUT OF CZDHA-D) 

24 IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOU 
25 

26 TIME 

27 PROCESSOR 
28 

29 PDP-11/04 

30 05 

31 10 

32 15 

33 20 

34 24 

35 34 

36 35 

37 40 
36 44 

39 45 

40 55 

41 60 

42 70 

43 74 

44 84 
45 
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1 

2 9. PROGRAM DESCRIPTION 

3 

4 THIS PROGR/-K IS A LOU LErfFL TEST OF DHll CONTROL 

5 REGISTERS. 
6 

7 THE PROGRAM BEGINS BY CHEC<ISG THE ADDRESSABILITY OF 

S EACH OHll REGISTER U:.THCUT CONCERN FOR ANY DATA CONTENT. 

9 THE PURPOSE OF THESE TESTS IS TO VERFIY THAT THE ADDRESS 

10 SELECTORS FOR THE VARIOUS REGISTERS ARE FUNCTIONING. 

12 THE NEXT SET OF TESTS VERIFIES TH^T EACH DHll REGISTER 

13 CAN BE HASTER CL5:«RE0, AFTER ALL READ. WRITE BITS HAVE 

14 BEEN SET TO 1. frlS TEST DOES NOT WERxrY THAT ALL 

15 BITS HAVE BEEN ' ONLY THAT THEY HAVE BEEN CLEARED. 

17 THE NEXT GROUP OF TESTS EXERCISES EACH REAO/URITE BIT 

16 IN THE OHll SYSTEM CONTROL REGISTER. IN BOTH NORHAL AND 

19 MAINTENANCE MOOEb OF OPERATION. IN NORMAL NODE, EACH 

20 READ/URITE BIT IS SET AND CLEARED. AND READ ONLY BITS 

21 ARE CHECKED FOR READ ONLY FUNCTION. 
22 

23 IN MAINTENANCE MOO^. THE BITS THAT ARE 

24 READ ONLY IN NORMAL MODE ARE CHECKED FOR REAO/URITE OPERATION. 
25 

26 THE NEXT GROUP OF TESTS CHECKS EACH REAO/URITE BIT 

27 OF THE OHll LINE PARAMATER REGISTER. BREAK CONTROL REGISTER 

28 AND SILO STATUS REGISTER FOR REAO/URITE CAPABILITY. EACH 

29 BIT OF EACH REGISTER IS CHECKED IN AN INDIVIDUAL TEST LOOP. 
30 

31 THE NEXT GROUP OF TESTS CHECKS CLEARING OF A SINGLE 

32 BIT IN EACH OF THE LINE PARAMETER. BREAK CONTROL AND 

33 SILO STATUS REGISTERS UITH ALL OTHER REAO/URITE BITS 

34 SET TO 1. 
35 

36 THE FINAL TUO TESTS VERIFY THAT A MOVE BYTE TO ONE BYTE 

37 OF THE SYSTEM CONTROL REGISTER DOES NOT AFFECT THE OTHER BYTE 

38 OF THE SYSTEM CONTROL REGISTER. 
39 

40 AFTER ALL TESTS HAVE BEEN COMPLETED. THE PROGRAM TYPES 

41 "CZOHA-O" AND RESTARTS THE SEQUENCE OF TESTING JUST DESCRIBED. 
42 

43 10. LISTING 

44 ! 
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SEQ 13 



1 


; unnnXm'n - l/nxi nnUKU LXOnnKT 


X 




A 




ft 

7 


Ml TQT Mr Mn run 

• nux o 1 » rii/ 1 will/ 


104 




119 

X A 7 




131 

A V A 




148 




ISS 




167 




303 




339 




373 




520 




563 




595 




607 




652 




664 




691 




712 




743 


: ens REPLACEMENT HISTORY 


744 




745 




746 


: *9 SKONETSKI 26-APR-1985 16:23:08 


747 


: *8 SKONETSKI 22-APR-1985 16:48:03 


746 


i *7 SKONETSKI 22-APR-198S 16:26:04 


TRAPS . •' 




749 


: *6 SKONETSKI 22-APR-198S 14:22:35 


750 


; *5 SKONETSKI 22-APR-1985 08:28:54 


CLEAN END OF PASS 




MESSAGE. 




751 


} *4 SKONETSKI 18 -APR -1985 14:20:15 


752 


i *3 SKONETSKI 12-APR-19d5 10:34:52 


753 


! *2 SKONETSKI 11- APR -1985 16:00:24 


TCH REGISTER" 




754 


: *1 SKONETSKI 11 -APR -1985 15:49:05 



"FIXED BUG CAN OCTASC MACRO CALL UAS URONG) AND ADDED A 



"FIXED PROBLEMS UITH SPURIOUS CR/LFS" 
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SEQ 14 



2 
3 

5 000000 



.LIST ME 
.NLIST MC.MD.CND 

.HEADER t/1972. 1978, 1985/. t/DHll STATIC LOGIC TEST/, t/CZDrtA-0/ 

; STARTING PROCEDURE 
iLOAD PROGRAM 
I LOAD ADDRESS 000200 
PRESS START 

PROGRAM WILL TYPE DHll STATIC LOGIC TEST 
PROGRAM UILL TYPE "VECTOR ADDRESS-" 
TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DHll TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
jPROGRAM UILL TYPE "CONTROL REGISTER ADDRESS-" 
TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
FOR THE DHll TO BE TESTED. FOLLOWED BY <CARRIAGE RETURN> 
PROGRAM UILL TYPE "R" TO INDICATE THAT TESTING HAi STARTED 
AT THE END OF A PASS. PROGRAM UILL TYPE - CZDHA-D - 
AND THEN RESUM TESTING 



oooooc 



6 OCOOOO 



.TITLE CZDHA-D 
.ENABLE ABS 
.NLIST MC.MD.CND 
.LIST ME 
.SYMBOLS 

;SUITCH REGISTER OPTIONS 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



SU15-100000 

SU14 -40000 

SU13-20000 

SW12-10000 

SUll-4000 

SU10>2000 

SU09-1000 

SU08-400 

SU06-100 

SUOS-40 

SU04-20 

SU03-10 

SU02-4 

SUOl-2 

SUOO-1 



•l.HALT iiH ERROR 

-l.LOOP ON CURRENT 

-1. INHIBIT ERROR TYPCOUT 

INHIBIT ITERATIONS 
1-1. ESCAPE TO NEXT TEST ON ERROR 
t- l.LOOP UITH CURRENT DATA 



: 3 



I RESTART PROGRAM AT SELECTED TEST 
iRESELECT VECTOR AND CONTROL REGISTER 
lAOORESS AFTER PROGRAN RESTART 
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sREGISTER DEFINITIONS 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



177776 
021544 



005746 
005726 
010046 
012600 
024646 
022626 



R0-«0 
Rl-«1 
R2-«2 
R3-«3 
R4-«4 
RS-«5 
SP-*6 
PC-*7 



I GENERAL REGISTER 
(GENERAL REGISTER 
(GENERAL REGISTER 
(GENERAL REGISTER 
(GENERAL REGISTER 
(GENERAL REGISTER 
(PROCESSOR STACK POINTER 
(PROGRAn COUNTER 



(LOCATION EQUIVALENCIES 



{SWR-177570 
;LIGHTS-177570 
PS-177776 
STACK-ES0C00*2OO 



(CONSOLE SWITCH REGISTER 
(POP-11/45 DISPLAY REGISTER 
(PROCESSOR STATUS WORD 

(START OF PROCESSOR STACK 



(INSTRUCTION DEFINITIONS 



PUSHlSP-5746 
POPlSP-5726 
PUSHRO- 10046 
POPRO- 12600 
PUSH2SP-24646 
P0P2SP -22626 

!hacro HLT 
EMT 

•ENOM HLT 



(DECREMENT PROCESSOR STACK 
(INCREMENT PROCESSOR STACK 
(SAVE RO ON STACK 
(RESTORE RO FROH STACK 
(DECREMENT STACK TWICE 
(INCREMENT STACK TWICE 

$A 
$A 



WORD 
WORD 



1 000000 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



BIT15-100000 

BIT14-40000 

BIT13-20000 

BIT12- 10000 

BITll-4000 

6IT10-2000 

BIT09-1000 

6IT08-400 

BIT07»200 

BIT06-100 

BIT05-40 

BIT04-20 

BIT03-10 

BIT02-4 

BIT01»2 

BITOO-1 

.CATCH 
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AAAAAA 
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HALT 










lUNFyPFfTFI) TRAP TO THTC 1 nTATTON 
{Vn^ArwwIbv inr^r 111 1 nxo wuvn 1 Xwn 




WwwVw 


HALT 


lEXAMINE STACK TO FIND CAUSF 




ww\A/Cv 


• 


lUNEXPFCTEO TRAP TO THIS 1 OCATIQN 




\A/wwW 


HALT 


iFXAHINE STACK TO FIND CAUSE 


WW/ JV 






tUN£Wf^'XP^^ trap to xht^ i nrATTnN 






HALT 


lEXAHTNE STACK TO WIND CAUSE 




WW WW 


*2 


tUNEXPfCTfD TRAP TQ THTS LOTATTnN 


000036 


000000 

wWwW 


HALT 


lEXAHINE STACK TQ FIND CAUSE 


000040 


000042 


*2 


•UNEXPECTED TRAP TO THIS LDCATIDN 


0C0O42 


000000 

www 


HALT 


lEXAHINE STACK TO FIND CAUSE 


0C0044 


000046 


. ^2 


lUNEXPECTEO TRAP TO THIS LDCATIDN 


000046 


000000 

www 


HALT 


lEXAHINE STACK TD FIND CAUSE 


00 00 SO 


000052 

W W^fc 


.♦2 


I UNEXPECTED TRAP TO THIS LOCATION 


000052 


000000 


HALT 


iCXAHINE STACK TO FIND CAUSE 


0000S4 


000056 

WW««#w 


.♦2 


:UNEXPECTED TRAP TO THIS LOCATION 


000056 


000000 

www 


HALT 


:EXAHINE STACK TO FIND CAUSE 


000060 


000062 

WWWfc 


.♦2 


lUNEXPECTCD TRAP TD THIS LOCATION 


000062 


000000 

Www WW 


HALT 


tEXAMKC STACK TO FIND CAUSE 


000064 


000066 

WWW WW 


. *2 


: UNEXPECTED TRAP TO THIS LOCATION 


000066 

W Www 


000000 

WW wwww 


HALT 


t EXAMINE STACK TO FIND CAUSE 


000070 

WWW ( w 


000072 

WWWW • b 


.♦2 


{UNEXPECTED TRAP TO THIS LOCATION 

# W*^B* ■ 1 nVar ■ W ■ > » Aw WWW" I A%F>1 


000072 

WWWW • b 


000000 

WW wwww 


HALT 


iEXAniNE STACK TO FIND CAU*^ 


000074 

wwww ( ^ 


000076 

WWWW • w 


. *2 


: UNEXPECTED TRAP TO THIS LOCATION 

# w>^w Aw^ WW 'WW ■ mnK^ ■ w ■ ■ w vwn i 


000076 

wwww • w 


000000 

WW WW WW 


HALT 


t EXAMINE STACK TO FIND CAUSE 


000100 

WWX WW 


000102 

WW W A Wb 


.♦2 


t UNEXPECTED TRAP TO THIS LOCATION 

■ W*W A*^ WW ■ WW 1 W%W9r I W ■ V*Aw W WW'' ' A Ww^ 


000102 

WwX wC 


000000 

WW WW WW 


HALT 


lEXAMINE STACK TO FIND CAUSE 

f WW^< *AV^W W 1 rVW*^ 1 W * W* <W*#W 


000104 

Vww A w 


000106 

WW WW 


. *2 


:UNE)9ECTED TRAP TO THIS LOCATION 

C VW^U WW ' WW < w^WVr I W ■ ■ BAW W WW" ■ 


000106 

WWW A W 


000000 

WW WW WW 


HALT 


lEXAMINE STACK TO FIND CAUSE 

1 W A"' lAt^W w 1 WW"^ 1 W ' Al^# W~W«^W 


000110 

www A A V 


000112 


. *2 


:UNEXPECTED TRAP TO THIS LOCATION 

1 w«iw WW ■ WW ■ nrw ■ w i ■ i a w w wwn ■ a w*« 


000112 


000000 

WW wwww 


HALT 


: EXAMINE STACK TO FIND CAUSE 

■ W *A1^W W ■ " ■ W »M^0 W**WwW 


000114 


000116 

www A AW 


. *2 


: UNEXPECTED TRAP TO THIS LOCATION 


000116 

WWV A XV 


000000 

^^w wwww 


HALT 


(EXAMINE STACK TO FIND CAUSE 


000120 


000122 


.♦2 


: UNEXPECTED TRAP TO THIS LOCATION 


000122 


000000 

WW WW WW 


HALT 


{EXAMINE STACK TO FIND CAUSE 

It W""' •AI^W W < "W'^ • W • A<"W W"WWW 


000124 


000126 

WWW*fcW 


. *2 


i UNEXPECTED TRAP TO THIS LOCATION 


000126 


000000 


HALT 


{EXAMINE STACK TO FIND CAUSE 


000130 


000132 


.*2 


: UNEXPECTED TRAP TO THIS LOCATION 


000132 


000000 


HALT 


lEXAMINE STACK TO FIND CAUSE 


000134 


000136 


.♦2 


{UNEXPECTED TRAP TO THIS LOCATION 


000136 


000000 


HALT 


{EXAMINE STACK TO FIND CAUSE 


000140 


000142 


.♦2 


(UNEXPECTED TRAP TO THIS LOCATION 
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000000 


HALT 


(EXAMINE STACK TO FIND CAUSE 
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tUrCXPECTEO TRAP TO THIS LOCATION 
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HALT 

nnw 1 
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www 
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www 


HALT 
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www 


HALT 
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www 


HALT 


AAOP7A 
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AAAAAA 
www 


HALT 
nni> 1 
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000000 
www 


HALT 
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t *c 




000000 
www 


HALT 
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AAAAAA 
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HALT 
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000000 

www 
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000000 


HALT 
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000326 
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000000 


HALT 



: EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
» UNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
8 EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TC FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TC THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
;EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUS^ 
(UNEXPECTED TPAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACV TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TR«> TO THIS LOCATION 
(EXANINE STACK TO FIND CAU% 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRM> TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
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UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LuCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE SThCK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LWTATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO ^IND CAUSE 
UI€XPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
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000512 


000000 


HALT 


000514 
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000516 


000000 


HALT 


000520 
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000000 


HALT 
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000000 


HALT 
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000000 


HALT 
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000000 


HALT 


000540 
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000000 


HALT 
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000000 


HALT 


000550 
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000000 


HALT 
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000556 
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jOOOOO 


HALT 
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.♦2 
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000000 


HALT 


000564 
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000000 


HALT 
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.♦2 


000572 


000000 


HALT 


000574 


000576 


.♦2 


000576 


000000 


HALT 


000600 


000602 


.♦2 


000602 


000000 


HALT 


000604 


000606 


.♦2 


000606 


000000 


HALT 


000610 


000612 


.♦2 


000612 


000000 


HALT 


000614 
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.♦2 


000616 


000000 


HALT 


000620 
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.♦2 


000622 


000000 


HALT 


000624 


000626 


.*2 


000626 


000000 


HALT 


000630 


000632 


.♦2 


000632 


000000 


HALT 


000634 


000636 


.*Z 


000636 


000000 


HALT 


000640 


000642 


.♦2 


000642 


000000 


HALT 


000644 


000646 


.♦2 


000646 


000000 


HALT 


000650 


000652 


.♦2 


000652 


000000 


HALT 


000654 


000656 


.♦2 


000656 


000000 


HALT 


000660 


000662 


.*Z 


000662 


000000 


HALT 


000664 


000666 


.♦2 


000666 


000000 


HALT 


000670 


000672 


.♦2 


000672 


000000 


HALT 



! EXAMINE STACK TO FIND CAUSE 
lUNEXPECTED TRAP TO THIS LOCATION 
iEXAMINE STACK TO FIND CAOSE 
jUNEXPECTED TRAP TO THIS LOCATION 
:EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUKCXPECTEO TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
jEXAMItC STACK TO FIND CAUSE 
J UNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
jEXAMINE STACK TO FIND CAUSE 
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SEQ 20 



000674 


000676 


.*2 


000676 


000000 


HALT 


000700 


000702 


.*2 


000702 


000000 


HALT 


000704 


000706 


.*2 


000706 


000000 


HALT 


000710 


000712 


.*2 


000712 


000000 


HALT 


000714 


000716 


.*2 


000716 


000000 


HALT 


000720 


000722 


.*2 


000722 


000000 


HALT 


000724 


000726 


.*2 


000726 


000000 


HALT 


000730 


000732 


.«2 


000732 


000000 


HALT 


000734 


000736 


.«2 


000736 


000000 


HALT 


000740 


000742 


.«2 


000742 


000000 


HALT 


000744 


000746 


.*2 


000746 


000000 


HALT 


000750 


000752 


.*2 


000752 


000000 


HALT 


000754 


000756 


.*2 


000756 


000000 


HALT 


000760 


000762 


.♦2 


000762 


000000 


HALT 


000764 


000766 


.♦2 


000766 


000000 


HALT 


000770 


000772 


.♦2 


000772 


000000 


HALT 


000774 


000776 


.*2 


000776 


000000 


HALT 


1 001000 




.SETVEC 



jUNEXPECTED TRAP TO THIS LOCATION 
:EXAMINE STACK TO FIND CAUSE 
:UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAHINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
;EXAMINE STACK 10 FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
;EXAHINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK 0 FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK 10 FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UhCXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UhCXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{Uf€XPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMire STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
tEXAniNE STACK TO FIND CAUSE 
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SEQ 21 



000200 
000200 000167 000600 



.=•200 



: STANDARD INTERRUPT VECTORS 

JMP START J GO TO START OF PROGRAM 



1 000204 

000204 
000204 
000204 
000204 
0C0204 
000204 
000204 
000204 
000204 



3 000046 
4 

5 000052 

6 

7 

B 

9 

10 000054 



104400 
000001 

104401 
000002 

104402 
000003 

104403 
000004 

104404 
000005 

104405 
000006 

104406 
000007 

104407 
000010 

104410 
000011 
000046 
016610 
000052 
040000 



.TRPDEF 

DEFINITIONS FOR TRAP SUBROUTINE CALLS 
POINTERS TO SUBROUTINES CAN BE FOUND STARTING 
AT LOCATION "TRPTAB" 

TRPDEF SCOPE. t/SCOPE LOOP AND ITERATION HANDLER/ 

SCOPE-TRAP+Y :SCOPE LOOP AND ITERATION HANDLER 

Y-Y*l 

TRPDEF TYPE.t/TELETYPE OUTPUT ROUTINE/ 

TYPE-TRAP* Y {TELETYPE OUTPUT ROUTINE 

Y-Y*l 

TRPDEF OCTASC.t /OCTAL TO ASCII CONVERSION/ 

OCTASC"TRAP*Y ;OCTAL TO ASCII CONVERSION 

Y-Y*l 

TRPDEF INSTR.t/INPUT ASCII STRI^«5/ 

INSTR-TRAP*Y jINPUT ASCII STRING 

Y-Y*l 

TRPDEF INSTER.t /STRING INPUT ERROR/ 

INSTER-TRAP*Y ; STRING INPUT ERROR 

Y-Y*l 

TRPDEF PARAM. t/CONVERT STRING TO OCTAL. CHECK LIMITS/ 

PARAM-TRAP*Y {CONVERT STRING TO OCTAL, CHECK LIMITS 

Y»Y*1 

TRPDEF SAV05P.t/SAVE R0-R5, PC/ 

SAV05P"TRAP*Y jSAVE RO R5, PC 

Y-Y*l 

TRPDEF RESOS.t/RESTORE R0-R5/ 

RES05-TRAP*Y {RESTORE R0-R5 

Y-Y*l 

TRPDEF SCOPEl.t/CHECK FOR FREEZE ON CURRENT DATA/ 

SC0PE1-TRAP»Y {CHECK FOR FREEZE ON CURRENT DATA 

Y-Y*l 

.-46 
LOGICAL 
.-52 
40000 
.MACRO 



• ENDM 
.START 



CODEMl 

MOV DHSSR.DHSLR 
INC OHSLR 
CODEMl 

DHRVEC .3.4. DHSCR . 0 . 177776 . 7 . 10 , . . 1 



{SET UP ADDRESS OF SILO 
{STATUS REGISTER HIGH BYTE 



SEQ 22 
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0 001000 .-IJOO 

.•PROGRAM INITIALIZATION 
:LOCK OUT INTERRUPTS 
J SET UP PROCESSOR STACK 
J SET UP POWER FAIL VECTOR 
: CLEAR PROGRAM FLAGS AND COUNTS 
:TYPE TITLE MESSAGE 
.IIF NB <>. ;DETERMINE MEMORY SIZE 

.IIF NB <>. sSET UP TRACE TRAP RETURN 



001000 


177570 






SUR: 


.UORD 


177570 : 


SUITCH DHSCR ADDRESS ; 


4 


001002 


177570 






LIGHTS : 


.UORD 


177570 i 


LIGHTS ! 


4 


001004 


012767 


000340 


176764 


START: 


MOV 


«340.PS i 


LOCK OUT INTERRUPTS 


4 


001012 


012706 


021544 






MOV 


OSTACK.SP i 


SET UP PROCESSOR STACK 




001016 


012702 


000024 






MOV 


«24,R2 : 


POINT TO VECTOR AREA ; 


7 


001022 


012722 


020110 






MOV 


«PFAIL.(R2)+ i 


SET UP POWER FAIL TRAP j 


7 


001026 


012722 


000340 






MOV 


«340. (R2)* 


SERVICE AT LEVEL 7 j 


7 


001032 


012722 


016750 






MOV 


«ERRORS. (R2)» 


ERROR HANDLER ; 


7 


001036 


012722 


000340 






MOV 


«340, (R2)* 


SERVICE AT LEVEL 7 ; 


7 


001042 


012722 


017162 






MOV 


*TRPSRV. (R2)* 


GENERAL HANDLER DISPATCH SERVICE . 


■» 
■ 


0C1046 


012712 


000340 






MOV 


0340, (R2) 


SERVICE AT LEVEL 7 


8 


001052 


005067 


017026 






CLR 


STFLG 


CLEAR TEST START FLAG 




001056 


005067 


016762 






CLR 


PASCNT 


CLEAR PASS COUNT 




001062 


005067 


016760 






CLR 


ERRCNT 


CLEAR ERROR COUNT 




001066 


005067 


016750 






CLR 


ERRFLG 


CLEAR ERROR FLAG 




001072 


005067 


016744 






CLR 


ERRFLG 


CLEAR LAST ERROR PC 




001076 


016746 


176702 






MOV 


4. -CSP) 


PUSH TRAP VECTOR 


i 4 


001102 


016746 


176700 






MOV 


6. -CSP) 




; 4 


001106 


012767 


001122 


176670 




MOV 


«1*. 4 


SET UP TRAP VECTOR 


i 4 


001114 


005777 


177660 






TST 


8SUR 


! TEST SUITCH REGISTER ADDRESS 


i 4 


001120 


000405 








BR 


2» 


i IF SUCCESSFUL, LEAVE IT KLOHE 


: 4 


001122 








1): 








i 4 


001122 


012767 


000176 


177650 




MOV 


#176. SUR 


t POINT TO SOFT SUITCH OHSCR 


! 4 


001130 


005067 


177646 






CLR 


LIGHTS 


i 0 MEANS UE ARE NOT GOING TO USE 1 


.IGHTS 


001134 








2»: 








; 5 


001134 


005726 








TST 


CSP)* 


i CLEAN UP STACK 


; 4 


001136 


005726 








TST 


(SP) + 




: 4 


001140 


012667 


176642 






MOV 


(SP)*. 6 




: 4 


001144 


012667 


176634 






MOV 


(SP)*. 4 




: 4 


OOllSO 


104401 


020260 






TYPE 


.MTITLE 


iTYPE TITLE MESSAGE 




001154 


005767 


016722 






TST 


INIFL6 


iCHECK INITIALIZATION FLAG 












.IF HB 


<OHRVEC> 






001160 


001001 








BNE 


VECl 


ilF NOT 0. CHECK SWITCHES 


















jFOR REINITIALIZATION 












.IFF 


















BNE 


BEGIN 


ilF NOT 0. START TEST 












.ENDC 


















.IF NB 


< > 
















SIZE: 


CLR 


RO 
















MOV 


«2).8«4 


:SET UP TIME OUT RETURN 












li: 


TST 


(R0)» 


sWILL TRAP WHEN NO MEMORY 


! 9 












BR 


It 


: LOCATION RESPONDED. CONTINUE 












2i: 


MOV 


RO.HCORE 


sRO CONTAINS ADDRESS OF 














SUB 


#2,HC0RE 


;NON EXIST ANT MEMORY 


; 9 












MOV 


«6,9«4 


;RESTORE TRAPCATCHER 
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.ENOC 

























TO ar CO . 
1 n ni«cn , 


MOV 


«1$.S«10 












SXT 


RO 












MOV 


#RTT.TRTRET 












BR 


2$ 












MOV 


#RTI,TRTRET 












MOV 


«12.S«10 












MOV 


#TRTRET.8#16 










.ENDC 














IF NB 

• xr 1^0 


<DHRVEC> 










IF B 


<> 






W V"t v~ 








BR 


VEC2 










.IFF 
















TST 


INIFLG 












BEQ 


VEC2 










.ENDC 






001164 


032777 


000001 

WW WW W A 


177606 


VECl: 


BIT 


«SUOO,SSUR 


00117P 


001445 








BEQ 


BEGIN 


001174 








VEC2: 






001174 


012701 


000300 






MOV 


«300.R1 


001200 

W w 


012702 


000302 






MOV 


«302.R2 


001204 


012703 


000004 






MOV 


M.R3 


001210 


010211 






1*; 


MOV 


R2.(R1) 


001212 


005012 








CLR 


(R2) 


001214 


060301 








ADD 


R3,R1 


001216 


060302 








ADD 


R3.R2 


001220 


020127 


001000 






CMP 


Rl,«1000 


001224 


001371 








BNE 


1$ 


001226 


104403 








INSTR 




001230 


020315 








MVECTOR 




001232 


104405 








PARAM 




001234 


000300 








300 




001236 


000770 








770 




001240 


020032 








OHRVEC 




001242 


003 






.BYTE 


3 




001243 


004 






.BYTE 


4 




001244 


104403 








INSTR 




001246 


020337 








MREGAO 




001250 


104405 








PARAM 




001252 


000000 








0 




001254 


177776 








177776 




001256 


020010 








DHSCR 




001260 


007 






.BYTE 


7 




001261 


010 






.BYTE 


10 












.ENDC 














.IF NB 


<1> 




001262 










CODEMl 




001262 


016767 


016540 


016540 




MOV 


OHSSR.DHSLR 


001270 


005267 


016534 






INC 


DHSLR 










.ENDC 






001274 


005767 


016602 






TST 


INIFLG 


001300 


001002 








BNE 


BEGIN 


001302 


005167 


016574 






COM 


INIFLG 



: PROGRAM START 

i CHECK FOR PROGRAM START 



SEQ 23 



SET UP ILLEGAL INSTRUCTION TRAP RETURN 
DO 11/40. 11/45 INSTRUCTION 
11/40.45 RTT RETURN FROM TRACE TRAP 

1105.10.20 RTI RETURN FROM TRACE TRAP 

RESTROE TRAPCATCHER 

SET UP TRACE TRAP VECTOR 



sIF INITIALIZE FLAG-0 

:GET VECTOR AND CSR ADDRESS 

:IF SUOO'l, GET NEU VECTOR 
:ANO CSR 



; RES TORE TRAPCATCHER 
ilN FLOATING VECTOR AREA 



4 
4 



INPUT ADDRESS OF DEVICE VECTOR 
MESSAGE "VECTOR ADDRESS-" 
CONVERT STRING TO OCTAL 
LOU LIMIT 

HIGH LIMIT : 3 

LOCATIONS TO BE FILLED 
NUMBER OF LOCATIONS 
LSB MASK 

INPUT ADDRESS OF DEVICE CSR 
MESSAGE "CONTROL REGISTER ADDRESS-" 
; CONVERT STRING TO OCTAL 
LOW LIMIT 
iHIGH LIMIT 

LOCATIONS TO BE FILLED 
NUMBER OF LOCATIONS 
LSB MASK 



:SET UP ADDRESS OF SILO 
J STATUS REGISTER HIGH BYTE 

;IF INITIALIZATION FLAG 
:IS CLEARED 
jSET IT 

.• 3 

SELECTED ADDRESS 
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SEQ 24 



001306 


012767 


000340 


176462 


BEGIN: 


MOV 


♦340. PS 


001314 


012706 


021544 






MOV 


♦STACK.SP 


001320 


032777 


000002 


177452 




BIT 


«SU01.9SUR 


001326 


001410 








BEQ 


1$ 


001330 


104403 








INSTR 




001332 


020526 








MTSTPC 




001334 


104405 








PARAH 




001336 


000000 








0 




001340 


017500 








17500 




001342 


020050 








RETRN 




001344 


001 






.BYTE 


1 




001345 


001 






.BYTE 


1 




001346 


000410 








BR 


2$ 


001350 


012767 


001400 


016472 


1$: 


MOV 


♦Tl. RETRN 


001356 


005767 


016522 






TST 


STFLG 


001362 


001004 








BNE 


3$ 


001364 


005167 


0165)4 






COM 


STFLG 


001370 


104401 


020522 




2): 


TYPE 


.MR 


001374 


000177 


016450 




3$: 


JMP 


9RETRN 


216 001400 








RGAORS 


t/SCR/.t/DHll SYSTEM 



LOCK OUT INTERRUPTS 
SET UP PROCESSOR STACK 
IF SUOl-1 

GET PC FOR PROGRAM START 
GET PC 

MESSAGE "TEST PC" 
CONVERT STRING TO OCTAL 



{NORMAL START. TEST 1 

;IF LOOPING. BYPAwj TYPEOUT 



:TYPE "R" TO INDICATE START 
i START TESTING 



001400 

001400 012767 

001406 012767 

001414 012767 



001422 
001430 
001436 



001444 
001450 
001450 

001452 
001456 
001460 
001466 
001472 
217 001474 



000002 
012737 
012737 
005777 



001442 000406 



104000 

012716 
000002 
012737 
005037 
104400 



000340 
000100 
001452 



001444 
000340 
016346 



016705 016340 



001460 

000006 
000006 



;DH11 SYSTEM CONTROL REGISTER ADDRESSING TEST 

s VERIFY THAT DHll SYSTEM CONTROL REGISTER RESPONDS TO ADDRESSING 
;IF OHll SYSTEM CONTROL REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
:UILL OCCUR. AND AN ERROR MESSAGE WILL BE TYPED. 



176370 
016442 
016430 



000004 
000006 



TS \XN.100.2$ 
Tl: MOV 
MOV 
MOV 
.IF Nb <> 
i10V 

.ENDC 
XN-XN*1 

MOV 
MOV 
TST 



000004 



1»: 

2$: 
3$: 



BR 

MOV 
HLT 
EMT 

MOV 
RTI 
MOV 

CLR 
SCOPE 



♦340. PS 
♦lOO.ICOUNT 
*2). ESCAPE 

#.FREEZ1 



«1).8«4 
#340. 8«6 
80HSCR 

3$ 

DHSCR.R5 

0 

0 

*3$.(SP} 

«6.aM 
M6 



DISABLE All INTERRUPTS 
SET UP FOR 100 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



sSET UP TIME OUT TRAP 

: ADDRESS DHll SYSTEM CONTROL 

: REGISTER 
NO TRAP. REGISTER RESPONDS 
TO ADDRESSING 
REGISTER DID NOT RESPOND 
TIME OUT TRAP. DHll SYSTEM CONTROL 

i REGISTER DID NOT RESPOND 
;SET UP TO RETURN FROM TRAP 
(RETURN FROM TRAP 

{RESTORE TRAP CATCHER 
jCHE:k for ITERATIONS. LOOP 



RGADRS t/NRC/.t/DHll NEXT RECEIVED CHARACTER/ 

;DH11 NEXT RECEIVED CHARACTER REGISTER ADDRESSING TEST 

i VERIFY THAT DHll NEXT RECEIVED CHARACTER REGISTER RESPONDS TO ADDRESSING 
;IF OHll NEXT RECEIVED CHARACTER PFGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
iUILL OCCUR. AND AN ERROR MESSAGE UILL BE TYPED. 
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SEQ 25 



001474 

001474 012767 000340 176274 

001502 012767 000100 016346 

001510 012767 001546 016334 



000003 

001516 012737 001540 000004 

001524 012737 000340 C00006 

001532 005777 016254 

001536 000406 

001540 016705 016246 
001544 

001544 104000 

001546 012716 001554 

001552 000002 

001554 012737 000006 000004 

001562 005037 000006 

001566 104400 
216 0C1570 



001570 

001570 012767 

001576 012767 

001604 012767 



001612 
001620 
001626 

001632 

001634 
001640 
001640 

001642 
001646 
001650 
001656 
001662 
219 001664 



000004 
012737 
012737 
005777 

000406 

016705 

104000 

012716 
000002 
012737 
005037 
104400 



000340 
000100 
001642 



001634 
000340 
016162 



C161S4 



001650 

oooooe 

000006 



176200 
016252 
016240 



000004 
000006 



000004 



TS \XN,100.2$ 
T2: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 

TST 



ii: 
3t: 

RGAORS 



BR 

MOV 
HLT 
EMT 



♦340. PS 
«100.IC0UNT 
«2*. ESCAPE 

tf.FREEZl 



«1$.8«4 
*340,8«6 

aOHNRC 

3* 

OHNRC.RS 

0 

0 



MOV 
RTI 
MOV 
CLR 
SCOPE 
t/LPR/,t/DH 



«3*.(SP) 



«6,8«4 
8«6 



11 LINE PARAMETER/ 



.-DISABLE ALL INTERRUPTS 
;SET UP FOR 100 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



sSET UP TIME OUT TRAP 

i ADDRESS DHll NEXT RECEIVED CHARACTER 

{REGISTER 
NO TRAP, REGISTER RESPONDS 
TO ADDRESSING 
REGISTER DID NOT RESPOND 

TIME OUT TRAP. DHll NEXT RECEIVED CHARACTER 

REGISTER DID NOT RESPOND 
SET UP TO RETURN FROM TRAP 
RETURN FROM TRAP 

{RESTORE TRAP CATCHER 
{CHECK FOR ITERATIONS. LOOP 



{DH 11 LINE PARAMETER REGISTER ADDRESSING TEST 

{VERIFY THAT DH 11 LINE PARAMETER REGISTER RESPONDS TO ADDRESSING 
{IF DH 11 LINE PARAMETER REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
{UILL OCCUR. AND AN ERROR MESSAGE UILL BE TYPED. 



TS \XN,100,2» 
T3: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
TST 



1): 

2f : 
.3»: 

RGADRS 



BR 

MOV 
HLT 
EMT 



#340. PS 
♦lOO.ICOUNT 
«2«. ESCAPE 

♦.FREEZl 



«1*.8«4 

«340.8«6 

80HLPR 

3t 

DHLPR.RS 

0 

0 

#3».(SP) 



DISABLE ALL INTERRUPTS 
SET UP FOR 100 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



{SET UP TIME OUT TRAP 



{ 3 



MOV 
RTI 

MOV «6.9«4 
CLR M6 

SCOPE 

t/BA/.t/DHll BUS ADDRESS/ 



(ADDRESS DH 11 LINE PARAMETER 
{REGISTER 

NO TRAP, REGISTER RESPONDS 

TO ADDRESSING 

REGISTER DID NOT RESPOND 
{TIME OUT TRAP. DH 11 LINE PARAMETER 

{REGISTER DID NOT RESPOND 
{SET UP TO RETURN FROM TRAP 
{RETURN FROM TRAP 

{RESTORE TRAP CATCHER 
{CHECK FOR ITERATIONS, LOOP 



{DHll BUS ADDRESS REGISTER ADDRESSING TEST 

{VERIFY THAT DHll BUS ADDRESS REGISTER RESPONDS TO ADDRESSING 
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tlF DHll BUS ADDRESS REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
sMILL OCCUR. AND AN ERROR HESSA6E WILL BE TYPED. 



001664 

001664 0127^7 000340 176104 

001672 012767 000100 0161% 

001700 012767 001736 016144 



000005 

001706 012737 001730 000004 

001714 012737 000340 000006 

001722 005777 016070 

001726 000406 

001730 016705 016062 
001734 

001734 104000 

001736 012716 001744 

001742 000002 

0C1744 012737 000006 000004 

001752 005037 000006 

001756 104400 
220 001760 



001760 

001760 012767 

001766 012767 

001774 012767 



002002 
002010 
002016 

002022 

002024 
002030 
002030 

002032 
002036 
002040 
002046 

002052 
221 002054 



000006 
012737 
012737 
005777 

000406 

016705 

104000 

012716 
000002 
012737 
005037 
104400 



000340 
000100 
002032 



002024 
000340 
015776 



015770 



002040 

000006 
000006 



176010 
016062 
016050 



000004 
000006 



000004 



TS \XN.100.2* 
T4: MOV 

nov 
nov 

.IF NB <> 

nov 

.ENOC 
XN-XN*1 

nov 
nov 

TST 



2) : 

3) : 

RGADRS 



BR 

nov 

HLT 
EnT 



*340,PS 
4100.IC0UNT 
«2«, ESCAPE 

♦.FREEZl 



«1),S«4 

*340.8«6 

80HBA 

3» 

DHBA,R5 

0 

0 

♦31. (SP) 



nov 

RTI 

nov «6,S«4 
CLR M6 

SCOPE 

t/BC/.t/DHll BYTE COUNT/ 



:DISABLE ALL INTERRUPTS 
;SET UP FOR 100 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 

!SET UP TinE OUT TRAP 

: ADDRESS DHll BUS ADDRESS 

{REGISTER 
iNO TRAP. REGISTER RESPONDS 
I TO ADDRESSING 
i REGISTER DID NOT RESPOND 

jTINE OUT TRAP. DHll BUS ADDRESS 

: REGISTER DID NOT RESPOND 
;SET UP TO RETURN FROH TRAP 
(RETURN FROn TRAP 

sRESTORE TRAP CATCHER 
iCHECK FOR ITERATIONS. LOOP 



iDHll BYTE COUNT REGISTER ADDRESSING TEST 

jVERIFY THAT DHll BYTE COUNT REGISTER RESPONDS TO ADDRESSING 
ilF DHll BYTE COUNT REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
;UILL OCCUR. AND AN ERROR NESSAGE WILL BE TYPED. 



TS \XN. 100. 2t 

T5i nov 
nov 
nov 

.IF NB <> 

.ENDC 
XN-XNU 



♦340.PS 
nOO.ICOUNT 
•2t. ESCAPE 



(DISABLE ALL INTERRUPTS 
iSET UP FOR 100 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 



nov 


♦.FREEZl 


iSET UP TO LOOP UITH DATA 


nov 


♦11. M4 


J SET UP TIHE OUT TRAP 


nov 


♦340. e«6 




TST 


8DHBC 


{ADDRESS DHll BYTE COUNT 






{REGISTER 


BR 


3t 


{NO TRAP. REGISTER RESPONDS 






(TO ADDRESSING 


nov 


0HBC.R5 


(REGISTER DID NOT RESPOND 


HLT 


0 


(TINE OUT TRAP. OHll BYTE COUNT 


EHT 


0 








(REGISTER DID NOT RESPOND 


nov 


♦3*.(SP) 


tSET UP TO RETURN FROH TRAP 


RTI 




(RETURN FROH TRAP 


nov 


♦6. 8^4 




CLR 


M6 


(RESTORE TRAP CATCHER 


SCOPE 




(CHECK FOR ITERATIWS. LOOP 



li: 

2*: 
31: 

RGAORS t/BCR/.t/OHll BREAK CONTROL/ 
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SEQ 27 



002054 

002054 012767 000340 175714 

002062 012767 000100 015766 

002070 012767 002126 015754 



000007 

002076 012737 002120 000004 

002104 012737 000340 000006 

002112 005777 015706 

002116 000406 

002120 016705 015700 
002124 

002124 104000 



002150 
002150 
002156 
002164 



002172 
002200 
002206 

002212 

002214 
002220 
002220 

002222 
002226 
002230 



012767 
012767 
012767 



000010 
012737 
012737 
005777 

000406 

016705 

104000 

012716 
000002 
012737 



000340 
000100 
002222 



002214 
000340 
015610 



015602 

002230 
000006 



175620 
015672 
015660 



000004 
000006 



iDHll BREAK CONTROL REGISTER ADDRESSING TEST 

:VERIFY THAT DHll BREAK CONTROL REGISTER RESPONDS TO ADDRESSING 
jIF DHll BREAK CONTROL REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
I WILL OCCUR. AND AN ERROR MESSAGE UILL BE TYPED. 



TS \XN.100.2» 
T6: MOV 
MOV 
MOV 
.IP NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 

TST 



0340. PS 
♦lOO.ICOUNT 
«2*, ESCAPE 

«.FREEZ1 



«lt.8«4 

«340.9«6 

90H8CR 



BR 



31 



l«i 



2): 



002126 012716 002134 

002132 000002 

002134 012737 000006 000004 3t 

002142 005037 000006 

002146 104400 
222 002150 



MOV DH8CR.R5 
HLT 0 
EMT 0 



•31. (SP) 



MOV 
RTI 

MOV »6.8«4 

CLR M6 
SCOPE 

RGAORS t/BAR/.t/BUS ACTIVE/ 



jOISABLE ILL INTERRUPTS 
J SET UP FO^ 100 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



jSET UP TIME OUT TRAP 

sADDRESS DHll BREAK CONTROL 

{REGISTER 
jNO TRAP. REGIfTER RESPONDS 
jTO ADDRESSING 
(REGISTER 010 NOT RESPOND 
tTIME OUT TRAP. OHll BREAK CONTROL 

(REGISTER 010 NOT RESPOND 
(SET UP TO RETURN FROM TRAP 
(RETURN FROM TRAP 

(RESTORE TRAP CATCHER 
(CHECK FOR ITERATIONS. LOOP 



(BUS ACTIVE REGISTER ADDRESSING TEST 

(VERIFY THAT BUS ACTIVE REGISTER RESPONDS TO ADDRESSING 

(IF BUS ACTIVE REGISTER DOES NOT RESPOND. A SUSS ERROR TRAP 

(WILL OCCUR. AND AN ERROR MESSAGE UILL BE TYPED. 



TS \XN.100,2» 
T7: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
TST 



II: 



21: 



BR 

MOV 
HLT 
EMT 



MOV 
RTI 

000004 3t ; MOV 



•340. PS 

•lOO.ICOUNT 
•21. ESCAPE 

•.FREEZl 



•lt.a«4 
•340. 9^6 
80HBAR 

3* 

DHBAR.RS 

0 

0 

•3».(SP) 
«6.8«4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(SET UP TIME OUT TRAP 

(AD.'^RESS BUS ACTIVE 

(REGISTER 
(NO TRAP. REGISTER RESPONDS 
(TO ADDRESSING 
(REGISTER DID NOT RESPOND 
(TIME OUT TRAP. BUS ACTIVE 

(REGISTER DIO NOT RESPOND 
(SET UP TO REillRN FROM TRAP 
(RETURN FROM TRAP 



{ 3 
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SEQ 28 



002236 005037 000006 
002242 104400 
223 002244 



002244 

002244 012767 000340 

002252 012767 000100 

002260 012767 002316 



002266 
002274 
002302 

002306 

0C2310 
0C2314 
002314 

002316 
002322 
002324 
002332 
002336 

224 

225 002340 



002340 
002340 
002346 
002354 



002362 

002370 
002376 



000011 
012737 
012737 
005777 

000406 

016705 

104000 

012716 
000002 
012737 
005037 
104400 



012767 
012767 
012767 



000012 
012777 

052777 
017704 



002310 
000340 
015520 



015512 



002324 

000006 
000006 



175524 
015576 
015564 



000004 
000006 



000004 



000340 175430 
004000 015502 
002416 015470 



173777 015420 

004000 015412 
015406 



RGAORS 



CLR S«6 
SCOPE 

t/SSR/.t/SILO STATUS/ 



iRESTORE TRAP CATCHER 
jCHECK FOR ITERATIONS. LOOP 



J SILO STATUS REGISTER ADDRESSING TEST 

; VERIFY THAT SILO STATUS REGISTER RESPONDS TO ADDRESSING 
ilF SILO STATUS REGISTER DOES NOT RESPOND, A BUSS ERROR TPAP 
tUILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 



TS \XN. 100.2$ 



TIO: 



.IF NB 

.ENOC 
XN>XN*1 



MOV 
MOV 
MOV 
< > 

MOV 



1): 

2»: 
3$: 



MOV 
MOV 
TST 

BR 

MOV 
HLT 
EMT 

MOV 
RTI 
MOV 
CLR 
SCOPE 



♦340. PS 
•lOO.ICOUNT 
♦2 1. ESCAPE 

♦.FREEZl 



«1*,S«4 

«340.8»6 

80HSSR 

3) 

DHSSR.RS 

0 

0 

*3*.(SP) 

«6.8«4 
0^6 



{DISABLE ALL INTERRUPTS 

{SET UP FOR 100 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



sSET UP TIME OUT TRAP 

I ADDRESS SILO STATUS 

{REGISTER 
{NO TRAP, REGISTER RESPONDS 
{TO ADDRESSING 
{REGISTER DID NOT RESPOND 
{TIME OUT TRAP. SILO STATUS 

{REGISTER DID NOT RESPOND 
{SET UP TO RETURN FROM TRAP 
{RETURN FROM TRAP 



{RESTORE TRAP CATCHER 
{CHECK FOR ITERATIONS. 



REGTS5 t/SYSTEM CONTROL/. t/OHSCR/. 173777 
{MASTER CLEAR TEST 

jSET SYSTEM CONTROL REGISTER TO 'CDATA' 
(ISSUE MASTER CLEAR 

{VERIFY THAT SYSTEM CONTROL WAS CLEARED 



TS \XN, 4000,1* 
Til: MOV 
MOV 
MOV 
.IF N8 <> 
MOV 

.ENOC 
XN-XN«1 

MOV 



002402 005704 



.IF NB 
.ENOC 



BIS 
MOV 

< > 
BIC 

TST 



•340. PS 
♦4000.IC0UNT 
«lt. ESCAPE 

♦.FREEZl 



♦1 73777. aOHSCR 

4BIT11.8DHSCR 
filOHSCR,R4 



«.R4 
R4 



{DISABLE ALL INTERRUPTS 
tSET UP FOR 4000 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



I SET SYSTEM CONTROL REGISTER 
{TO 173777 
{ISSUE MASTER CLEAR 
{(R4)-ACTUAL DATA IN 
(SYSTEM CONTROL REGISTER 

(CLEAR UNWANTED BITS 

(VERIFY THAT SYSTEM CONTROL REGISTER 
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SEQ 29 



002404 001404 

002406 0050C5 

002410 016703 015374 
002414 

002414 104005 

002416 104400 
226 002420 



002420 
002420 
002426 
002434 



0C2442 

002450 
002456 



012767 
012767 
012767 



000013 
012777 

05Z777 
017704 



000340 175350 
004000 015422 
002476 015410 



177777 015344 

004000 015332 
015332 



002462 005704 

002464 001404 

002466 005C05 

002470 01670J 015320 
002474 

002474 104005 

002476 104400 
227 002500 



002500 

002500 012767 000340 175270 

002506 012767 004000 015342 

002514 012767 002556 015330 



000014 

002522 012777 177777 015274 



BEQ 1) 
CLR R5 

MOV DHSCR,R3 
HLT 5 
EMT 5 
It: SCOPE 

REGTS5 t/LINE PARAMETER/. t/OHLPR/, 177777 
jMASTER CLEAR TEST 

jSET LINE PARAMETER REGISTER TO 'COATA' 
(ISSUE MASTER CLEAR 

! VERIFY THAT LINE PARAMETER UAS CLEARED 



:UAS CLEARED 

s(R5)-EXPECTED DATA IN 
(SYSTEM CONTROL REGISTER. 0 

(GET REGISTER ADDRESS 
(MASTER CLEAR FAILED 

(CHECK FOR ITERATIONS. LOOP 



TS \XN, 4000.1$ 
T12: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN'XN»1 

MOV 



.IF NB 
.ENDC 



BIS 
MOV 

< > 
SIC 

TST 

BEQ 
CLR 



♦340. PS 
«4000.IC0UNT 
♦1$. ESCAPE 

♦.FREE21 



*177777,SIDHLPR 

«6IT11.8DHSCR 
aOHLPR.R4 



«.R4 
R4 

1$ 

R5 



1»: 

REGTS5 



MOV 0HLPR.R5 
HLT 5 
EMT 5 
SCOPE 

♦/BREAK CONTROL/. t/DHBCR/, 177777 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(SET LINE PARAMETER REGISTER 
(TO 177777 

ISSUE MASTER CLEAR 

(R4)-ACTUAL DATA IN 

LINE PARAMETER REGISTER 

(CLEAR UNWANTED BITS 

(VERIFY THAT LINE PARAMETER REGISTER 
(WAS CLEARED 

;(R5)«EXPECTED DATA IN 
(LINE PARAMETER REGISTER. 0 

(GET REGISTER ADDRESS 
(MASTER CLEAR FAILED 

(CHECK FOR ITERATIONS. LOOP 



(MASTER CLEAR TEST 

(SET BREAK CONTRX REGISTER TO 'CDATA' 
(ISSUE MASTER CLEAR 

(VERIFY THAT BREAK CONTROL UAS CLEARED 



TS \XN. 4000.1* 
T13: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN>XN*1 

MOV 



«340.PS 
MOOO.ICOUNT 
«lt. ESCAPE 

♦.FREEZl 
♦177777, 80HBCR 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(SET BREAK CONTROL REGISTER 
(TO 177777 
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SEQ 30 



002330 


052777 


004000 015c32 


BIS 


96IT11 ,8DHSCR 


J ISSUE MASTER CLEAR 


002536 


017704 


015262 


MOV 


80HBCR.R4 


s(R4)« ACTUAL DATA IN 












.BREAK CONTROL REGISTER 






. IF NB 


< > 












BIC 


#,R4 


: CLEAR UNUANTEO BITS 






.ENDC 






002542 


005704 




TST 


R4 


s VERIFY THAT BREAK CONTROL 












:UAS CLEARED 








DCvl 


X9 




002546 


005005 




CLR 


R5 


:(R5)-EXPECTED DATA IN 












:BREAK CONTROL REGISTER. 0 


002550 


016703 


015250 


HOV 


0HBCR.R3 


:GET REGISTER ADDRESS 


002SS4 






HLT 


5 


: MASTER CLEAR FAILED 


0025S4 


104005 




EMT 


5 




002556 


104400 


11: 


SCOPE 




;CHECK FOR ITERATIONS, LOOP 



228 002560 



002560 

0C2560 012767 

002566 012767 

002574 012767 



000015 
002602 012777 

002610 052777 
002616 017704 



002622 

002626 

002630 
002632 

002634 
002640 
002640 
002642 
229 002644 



042704 

005704 

001404 
005005 



016703 015166 

104005 
104400 



000340 175210 
004000 015262 
002642 015250 



100077 015216 

004000 015172 
015204 



077700 



REGTS5 t/SILO STATUS/. t/QHSSR/, 100077.77700 

'CDATA' 



iMASTER CLEAR TEST 
iSET SILO STATUS REGISTER TO 
; ISSUE MASTER aEAR 
tVERIFY THAT SILO STATUS MAS CLEARED 



TS \XN. 4000.1$ 
T14: MOV 
NOV 
MOV 
.IF NB <> 
NOV 

.ENDC 
XN-XN*1 

MOV 



.IF NB 
.ENDC 



BIS 
NOV 

<77700> 
BIC 

TST 

BEQ 
CLR 



«S40.PS 
•4000.ICOUNT 
•it. ESCAPE 

*.FREEZ1 
«100077.aOHSSR 

«eiTu.aoHSCR 

80HSSR.R4 

•77700. R4 

R4 

if 
RS 



1»: 

REGTSl 



MOV DHSSR.R3 
HLT 5 
EMT 5 
SCOPE 

t/LINE SELECT BIT 0/,BITOO 



:DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
I SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



;SET SILO STATUS REGISTER 
I TO 100077 
i ISSUE MASTER CLEAR 
tCR4)- ACTUAL DATA IN 
I SILO STATUS REGISTER 

.•CLEAR Ul«UANTED BITS 

: VERIFY THAT SK-O STATUS REGISTER 
;UAS CLEARED 

i(RS}>EXPECTED DATA IN 
:SILO STATUS REGISTER. 0 

(GET REGISTER ADDRESS 
jMASTER CLEAR FAILED 

sCHECK FOR ITERATIONS. LOOP 



i SYSTEM CONrROL REGISTER URITE/READ TEST (NORMAL MODE) 

{SET LINE SELECT BIT 0 IN SYSTEM CONTROL REGISTER 

: VERIFY THAT LINE SELECT BIT 0 WAS SET 

s CLEAR LINE SELECT BIT 0 

{VERITY THAT LINE SELECT BIT 0 WAS CLEARED 



002644 

002644 012767 000340 175124 



TS \XN.4000.2$ 
T15: MOV 



4340.PS 



(DISABLE ALL INTERRUPTS 
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SEQ II 



002652 012767 004000 
002660 012767 002730 



015176 
015164 



002666 
002672 
002676 
002702 
002704 



000016 
016703 
012713 
022713 
001404 
012705 



002710 011304 



002712 
002712 

002714 
002720 
002722 



104001 

042713 
001403 
005005 



002724 011304 



002726 
002726 

002730 
230 002732 



104001 
104400 



002732 
002732 
002740 
002746 



002754 
002760 
002764 
002770 
002772 



012767 
012767 
012767 



000017 
016703 
012713 
022713 
001404 
012705 



002776 011304 



003000 
003000 

003002 



104001 
042713 



015116 
000001 
000001 

000001 



MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 



000001 



1): 



HLT 
EMT 

SIC 
BEQ 
CLR 

MOV 

HLT 
EMT 



«4000,ICOUNT 
«2», ESCAPE 

«.FREEZ1 



0HSCR.R3 
•BITOO.CRS) 
«6IT00.(R3) 
1» 

«6IT00,R5 



(R3).R4 

1 
1 

«eiT00.(R3) 

21 

RS 

(R3).R4 

1 
1 



21: SCOPE 

REGTSl t/LINE SELECT BIT l/.BITOl 



J SET UP FOR 4000 ITERATIONS 
I SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



jPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

;SET LINE SELECT BIT 0 

! VERIFY THAT LINE SELECT BIT 0 WAS SET 

;(R5)- EXPECTED VALUE 

tIN SYSTEM CONTROL REGISTER 

iLINE SELECT BIT 0 

J (R4)- ACTUAL DATA IN 

; SYSTEM CONTROL REGISTER 

{SYSTEM CONTROL REGISTER 

sURITE/READ ERROR 

iclear line select bit 0 

i {r5) "expected data in 
jsystem control register. 0 
i (r4) -actual data in 
isystem control register 
System control register 

lURITE/READ ERROR 

iCHECK FOR ITERATIONS. LOOP 



SYSTEM CONTROL REGISTER URITE/REAO TEST (NORMAL MODE) 
SET LINE SELECT BIT 1 IN SYSTEM CONTROL REGISTER 
VERIFY THAT LINE SELECT BIT 1 MAS SET 
CLEAR LINE SELECT BIT 1 

VERITY THAT LINE SELECT BIT 1 MAS CLEARED 



000340 175036 
004000 015110 
003016 015076 



015030 
000002 
000002 



000002 



TS SXN.4000.21 
T16: MOV 

nov 

MOV 
.IF NB <> 
MOV 

.ENDC 
XN*XN»1 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 



000002 



1»! 



HLT 
EMT 

BIC 



•340. PS 
«4000.ICOUNT 
«2I. ESCAPE 

•.FREEZl 



0HSCR.R3 
«BIT01.CR3) 
4BIT01.CR3) 
II 

«BIT01,R5 



(R3).R4 

1 
1 

«BIT01.(R3) 



sDISABLE ALL INTERRUPTS 

I SET UP FOR 4000 ITERATIONS 

:SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

:SET LIHE. SELECT BIT 1 

(VERIFY THAT LINE SELECT BIT 1 WAS SET 

t(R5)- EXPECTED VALUE 

:IN SYSTEM CONTROL REGISTER 

iLINE SELECT BIT 1 

j(R4)-ACTUAL DATA IN 

J SYSTEM CONTROL REGISTER 

{SYSTEM CONTROL REGISTER 



s URITE/REAO ERROR 
{CLEAR LINE SELECT BIT 1 
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SEQ Ik 



003006 001403 

003010 005005 

003012 011304 

003014 

003014 104001 

003016 104400 
231 003020 



003020 

003020 012767 

003026 012767 

003034 012767 



003042 
003046 
003052 
003056 
003060 



000020 
016703 
012713 
022713 
001404 
012705 



003064 011304 



003066 
003066 

003070 
003074 
003076 



104001 

042713 
001403 
005005 



003100 011304 



003102 
003102 

003104 
232 003106 



104001 
104400 



BEQ 
CLR 

MOV 

HLT 
EMT 



2) 
R5 

(R3),R4 

1 
1 



21 : SCOPE 

REGTSl t/LINE SELECT BIT 2/.BIT02 



;(R5}-EXPECTED DATA IN 
: SYSTEM CONTROL REGISTER. 0 
:(R4} -ACTUAL DATA IN 
{SYSTEM CONTROL REGISTER 
J SYSTEM CONTROL REGISTER 

;URITE/READ ERROR 

i CHECK FOR ITERATIONS. LOOP 



: SYSTEM CONTROL REGISTER URITE/REAO TEST (NORMAL MODE) 

tSET LINE SELECT BIT 2 IN SYSTEM CONTROL REGISTER 

: VERIFY THAT LINE SELECT BIT 2 WAS SET 

: CLEAR LINE SELECT BIT 2 

:VERITY THAT LINE SELECT BIT 2 UAS CLEARED 



000340 
004000 
003104 



014742 
000004 
000004 

000004 



TS \XN. 4000.2* 
174750 T17: MOV 
015022 HOV 
015010 MOV 

.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 



000004 



1$: 



BIC 
BEQ 
CLR 

MOV 

HLT 
EMT 



♦340. PS 
MOOO.ICOUNT 
«2 I. ESCAPE 

♦.FREEZl 



0HSCR.R3 
«BIT02,(R3) 
«6IT02.(R3) 
1$ 

«BIT02.R5 



(R3).R4 

1 
1 

«BIT02.CR3} 

2> 

R5 

(R3).R4 

1 
1 



2): 

REGTSl 



SCOPE 

t/LlNE SELECT BIT 3/.BIT03 



{DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



iPUT ADDRESS OF SYSTEM CONTRX REGISTER IN R3 

iSET LINE SELECT BIT 2 

i VERIFY THAT LINE SELECT BIT 2 UAS SET 

;(R5)« EXPECTED VALUE 

sIN SYSTEM CONTROL REGISTER 

;LINE SELECT BIT 2 

{(R4)'> ACTUAL DATA IN 

i SYSTEM CONTROL REGISTER 

{SYSTEM CONTROL REGISTER 

:URITE/READ ERROR 
{CLEAR LINE SELECT BIT 2 

((R5)*EXPECTED DATA IN 
; SYSTEM CONTROL REGISTER. 0 
{(R4)- ACTUAL DATA IN 
{SYSTEM CONTROL REGISTER 
{SYSTEM CONTROL REGISTER 

{WRITE/READ ERROR 

{CHECK FOR ITERATIONS. LOOP 



SYSTEM CONTROL REGISTER URITE/REAO TEST (NORHAL HOOE) 
SET LINE SELECT BIT 3 IN SYSTEM CONTROL REGISTER 
VERIFY THAT LINE SELECT BIT 3 UAS SET 
CLEAR LINE SELECT BIT 3 

VERITY THAT LINE SELECT BIT 3 UAS CLEARED 



003106 TS \XN.4000,2) 

003106 012767 000340 174662 T20: MOV *340.PS 



(DISABLE ALL INTERRUPTS 
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SEQ 33 



003114 012767 004000 
003122 012767 003172 



000021 

003130 016703 014654 

003134 012713 000010 

003140 022713 OCOOlO 
003144 001404 

003146 012705 000010 



003152 011304 
003154 

003154 104001 

003156 042713 000010 

003162 001403 

003164 005005 

003166 011304 

003170 

003170 104001 

003172 104400 
233 003174 



014734 
014722 



.IF NB 

.ENDC 
XN"XN»1 



MOV 
MOV 
< > 
MOV 



1>: 



MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 

BIC 
BEQ 
CLR 

MOV 

HLT 
EMT 

SCOPE 



♦4000.IC0UNT 
«2*. ESCAPE 

#.FREEZ1 



DHSCR.R3 
#BIT03.(R3) 
«6IT03,(R3) 
1) 

«BIT03.R5 



(R3),R4 

1 
1 

«eiT03.(R3) 

2$ 

RS 

(R3).R4 

1 
1 



2$: 

REGTSl t/MEMQPY EXTENSION BIT 0/.BIT04 



;SET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



;PUT ADDRESS OF SYSTCM CONTROL REGISTER IN R3 

.•SET LINE SELECT BIT 3 

J VERIFY THAT LINE SFi ECT BIT 3 MAS SET 

;(R5)- EXPECTED VALUE 

;IN SYSTEM CONTROL REGISTER 

:LINE SELECT BIT 3 

:(R4)- ACTUAL DATA IN 

J SYSTEM CONTROL REGISTER 

s SYSTEM CONTROL REGISTER 

tURITE/REAO ERROR 

; CLEAR LINE SELECT BIT 3 

;(R5)-EXPECTE0 DATA IN 
(SYSTEM CONTROL REGISTER. 0 
i(R4)-ACTUAL DATA IN 
(SYSTEM CONTROL REGISTER 
! SYSTEM CONTROL REGISTER 

lURITE/READ ERROR 

(CHECK FOR ITERATIONS. LOOP 



(SYSTEM CONTROL REGISTER URITE/READ TEST (NORMAL MODE) 

(SET MEMORY EXTENSION BIT 0 IN SYSTEM CONTROL REGISTER 

(VERIFY THAT MEMORY EXTENSION BIT 0 UAS SET 

(CLEAR MEMORY EXTENSION BIT 0 

(VERITY THAT MEMORY EXTENSION BIT 0 UAS CLEARED 



003174 
003174 
003202 
003210 



003216 
003222 
003226 
003232 
003234 



012767 
012767 
012767 



000C22 
016703 
012713 
022713 
001404 
012705 



000340 
004000 
003260 



014566 
0C0020 
000020 

000020 



003240 011304 



003242 
003242 

003244 



104001 
042713 



TS \XN.4000,2$ 
174574 T21: MOV 
014646 MOV 
014634 MOV 

.IF NB <> 
MOV 

.ENOC 
XN'XN^l 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 



000020 



It: 



BIC 



•340. PS 
MOOO.ICOUNT 
*2t. ESCAPE 

«.FREEZ1 



0HSCR.R3 

«eiT04.(RS) 

«BIT04.(R3) 

«eiT04.R5 



(R3).R4 

1 
1 

«eiT04.(R3) 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITK DATA 



(PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

(SET MEMORY EXTENSION BIT 0 

(VERIFY THAT MEMORY EXTENSION BIT 0 UAS SET 

s(R5)- EXPECTED VALUE 
(IN SYSTEM CONTROL REGISTER 
(MEMORY EXTENSION BIT 0 
{(R4}-ACTUAL DATA IN 
(SYSTEM CONTROL REGISTER 
(SYSTEM CONTROL REGISTER 

(URITE/READ ERROR 

(CLEAR MEMORY EXTENSION BIT 0 
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SEQ 34 



003250 001403 

003252 005005 

003254 011304 

003256 

003256 104001 

003260 104400 
234 003262 



003262 

003262 012767 

003270 012767 

003276 012767 



003304 
003310 
003314 
003320 
003322 



000023 
016703 
012713 
022713 
001404 
012705 



003326 011304 



003330 
003330 

003332 
003336 
003340 



104001 

042713 
001403 
005005 



003342 011304 



003344 
003344 

003346 
235 003350 



104001 
104400 



BEQ 
CLR 

MOV 

HLT 
EMT 

SCOPE 



2$ 
R5 

(R3).R4 

1 
1 



(R5)-EXPECTED DATA IN 
SYSTEM CONTROL REGISTER. 0 
(R4)-ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
SYSTEM CONTROL REGISTER 

;URITE/READ ERROR 
i CHECK FOR ITERATIONS. LOOP 



2): 

REGTSl t/MEMORY EXTENSION BIT 1/,BIT05 

SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
SET MEMORY EXTENSION BIT 1 IN SYSTEM CONTROL REGISTER 
VERIFY THAT MEMORY EXTENSION BIT 1 WAS SET 
CLEAR MEMORY EXTENSION BIT 1 

VERITY THAT MEMORY EXTENSION BIT 1 UAS CLEARED 



000340 174506 
004000 014560 
003346 014546 



014500 
000040 
000040 



000040 



TS \XN, 4000.2* 
T22: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 



000040 



1»: 



BIG 
BEQ 
CLR 

MOV 

HLl 
EMT 



♦340, PS 
«4000,IC0UNT 
*2*. ESCAPE 

♦.FREEZl 



DHSCR.R3 
«6IT05.(R3} 
«BIT05.(R3) 
1% 

«6IT05.R5 



(R3),R4 

1 
1 

«BIT05.(R3) 

2* 

R5 

(R3).R4 

1 
1 



2»: SCOPE 

REGTSl t/RECEIVER INTERRUPT 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



:PUT ADORESS OF SYSTEM CONTROL REGISTER IN R3 

iSET MEMORY EXTENSION BIT 1 

{VERIFY THAT MEMORY EXTENSION BIT 1 UAS SET 

(R5)- EXPECTED VALUE 
IN » 3TEn CONTROL REGISTER 
MEMORY EXTENSION BIT 1 
(R4}-ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
SYSLM CONTROL REGISTER 

iURITE/REAO ERROR 

: CLEAR MEMORY EXTENSION BIT 1 

t(R5)-EXPECTED DATA IN 
SYSTEM CONTROL REGISTER. 0 
(R4)« ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
SYSTEM CONTROL REGISTER 



lURITE/READ ERROR 
i CHECK FOR ITERATIONS. LOOP 
ENABLE/. BIT06 



SYSTEM CONTROL REGISTER URITE/READ TEST (NORMAL MODE) 

SET RECEIVER INTERRUPT ENABLE IN SYSTEM CONTROL REGISTER 

VERIFY THAT RECEIVER INTERRUPT ENABLE UAS SET 

CLEAR RECEIVER INTERRUPT ENABLE 

VERITY THAT RECEIVER INTERRUPT ENABLE UAS CLEARED 



003350 

003350 012767 000340 174420 



TS \XN.4000.2» 
T23: MOV 



#340. PS 



{DISABLE ALL INTERRUPTS 
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SEQ 35 



003356 012767 004000 014472 
003364 012767 003434 014^60 



000024 

003372 016703 014412 

003376 012713 000100 

003402 022713 000100 
003406 001404 

003410 012705 000100 



003414 011304 
003416 

003416 104001 

003420 042713 000100 

003424 001403 

003426 005005 

003430 011304 

003432 

003432 104001 

003434 104400 
236 003436 



MOV 
MOV 
.IF MB <> 
MOV 

.ENCC 
XN-XN«t 

MOV 
MOV 
CMP 
BEQ 
MOV 



II: 



MOV 

HLT 
EMT 

BIC 
BEQ 
CLR 

nov 

HLT 
EMT 

SCOPE 



«4000,IC0UNT 
«2), ESCAPE 

#.KREEZ1 



0HSCR.R3 
«8IT06,(R3) 
«BIT06.(R3) 
1) 

«BIT06,R5 



(R3).R4 

1 
1 

46IT06.CR3) 

2$ 

R5 

CR3).R4 

1 
1 



2$: 

REGTSl t/HAINTENANCE nOOE/.BIT09 



iSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



iPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

J SET RECEIVER INTERRUPT ENABLE 

; VERIFY THAT RECEIVER INTERRUPT ENABLE UAS SET 

;(R5)- EXPECTED VALUE 
;IN SYSTEM CONTROL REGISTER 
{RECEIVER INTERRUPT ENABLE 
:(R4)-ACTUAL DATA IN 
{SYSTEM CONTROL REGISTER 
{SYSTEM CONTROL REGISTER 

:URITE/REA0 ERROR 

! CLEAR RECEIVER INTERRUPT ENABLE 

:(R5) -EXPECTED DATA IN 

i SYSTEM CONTROL REGISTER. 0 

:(R4)- ACTUAL DATA IN 

: SYSTEM CONTROL REGISTER 

I SYSTEM CONTROL REGISTER 

lURITE/REAO ERROR 

I CHECK rOR ITERATIONS. LOOP 



iSYSTEn CONTROL REGISTER URITE/REAO TEST (NORHAL nODE) 

>SET MAINTENANCE MODE IN SYSTEM CONTROL REGISTER 

I VERIFY THAT MAINTENANCE MODE UAS SET 

: CLEAR MAINTENANCE MODE 

{VERITY THAT MAINTENANCE MODE UAS CLEARED 



003436 
003436 
003444 
003452 



003460 
003464 
003470 
003474 
003476 



012767 
012767 
012767 



000025 
016703 
012713 
022713 
001404 
012705 



000340 
004000 
003522 



014324 
001000 
001000 

001000 



174332 
014404 
014372 



TS \XN.4000.2» 
T24: MOV 
MOV 
MOV 
IF NB <> 



.EN9C 
XN-XN*1 



MOV 



003502 011304 



003504 
003504 

003506 



104001 
042713 



001000 



1): 



MOV 
HOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 

BIC 



♦340, PS 
MOOO.ICOUNT 
ESCAPE 

*,FREEZ1 



0HSCR.R3 
«IT09.(R3) 
«6IT09.(R3) 
It 

«6IT09,RS 



(R3).R4 

1 

1 

«6IT09.(R3) 



{DISABLE ALL INTERRUPTS 
tSET UP FOR 4000 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 

tSET UP TO LOOP UITH DATA 



i 3 



{PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

{SET MAINTENANCE MODE 

{VERIFY THAT MAINTENANCE MODE UAS SET 

{(R5)- EXPECTED VALUE 
(IN SYSTEM CONTROL REGISTER 
(MAINTENANCE MODE 
tCR4)>ACTUAL DATA IN 
(SYSTEM CONTROL REGISTER 
(SYSTEM CONTROL REGISTER 

(URITE/READ ERROR 
(CLEAR MAINTENANCE MODE 
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SEQ 36 



003512 001403 

003514 005005 

003516 011304 

003520 

003520 104001 

003522 104400 
237 003524 



003524 

003524 012767 

003532 012767 

003540 012767 



003546 
003552 
003556 
003562 
003564 



000026 
016703 
012713 
022713 
001404 
012705 



003570 011304 



003572 
003572 

003574 
003600 
003602 



104001 

042713 
001403 
005005 



003604 011304 



003606 
003606 

003610 
238 003612 



104001 
104400 



2): 

REGTSl 



BEQ 
CLR 

MOV 

HLT 
EMT 

SCOPE 



2$ 
RS 

(R3),R4 

1 
1 



s(R5)-EXPECTED DATA IN 
; SYSTEM CONTROL REGISTER. 
s(R4)- ACTUAL DATA IN 
J SYSTEM CONTROL REGISTER 
! SYSTEM CONTROL REGISTER 



t/SILO OVERFLOW INTERRUPT ENABLE/. BIT12 



iURITE/READ ERROR 
J CHECK FOR ITERATIONS, 



LOOP 



SYSTEM CONTROL REGISTER URITE/REAO TEST (NORMAL MODE) 

SET SILO OVERFLOU INTERRUPT ENABLE IN SYSTEM CONTROL REGISTER 

VERIFY THAT SILO OVERFLOU INTERRUPT ENABLE WAS SET 

CLEAR SILO OVERFLOU INTERRUPT ENABLE 

VERITY THAT SILO OVERFLOU INTERRUPT ENABLE UAS CLEARED 



000340 
004000 
003610 



014236 
010000 
010000 

010000 



174244 
014316 
014304 



TS \XN,4000.2* 
T25: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
CMP 
BEQ 
MOV 



HLT 
EMT 



010000 



1*1 



BIC 
BEQ 
CLR 

MOV 

HLT 
EMT 



♦340. PS 
MOOO.ICOUNT 
«2*. ESCAPE 

♦.FREEZl 



0HSCR.R3 
«BIT12.(R3) 
«eiT12.(R3) 
1» 

«eiT12.R5 



IR3).R4 

1 
1 

«eiT12,(R3) 
RS 

(R3}.R4 

1 
1 



(DISABLE ALL INTERRUPTS 
}SET UP FOR 4000 ITERATIONS 
.SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



{PUT ADORtSS OF SYSTEM CONTRX REGISTER IN R3 

iSET SILO OVERFLOU INTERRUPT ENABLE 

! VERIFY THAT SILO OVERFLOU INTERRUPT ENABLE UAS SET 

s(R5)- EXPECTED VALUE 

ilN SYSTEM CONTROL REGISTER 

sSILO OVERFLOU INTERRUPT ENABLE 

I (R4)« ACTUAL DATA IN 

J SYSTEM CONTROL REGISTER 

; SYSTEM CONTROL REGISTER 

lURITE/REAO ERROR 

: CLEAR SILO OVERFLOU INTERRUPT ENABLE 

{(R5) •EXPECTED DATA IN 

i SYSTEM C(MTROL REGISTER. 0 

;CR4)-ACTUAL DATA IN 

; SYSTEM CONTROL REGISTER 

: SYSTEM CONTROL REGISTER 



21: SCOPE 

REGTSl t/TRANSMITTER INTERRUPT 



i URITE/REAO ERROR 
(CHECK FOR ITERATIONS. 
ENABLE/. BIT13 



LOOP 



SYSTEM CONTROL REGISTER URITE/REAO TEST CNORMAL MODE) 
SET TRANSMITTER INTERRUPT ENABLE IN SYSTEM CONTROL REGISTER 
VERIFY THAT TRANSMITTER INTERRUPT ENABLE UAS SET 
{CLEAR TRANSMITTER INTERRUPT ENABLE 

{VERITY THAT TRANSMITTER INTERRUPT ENABLE UAS CLEARED 



003612 TS \XN.4000.2* 

00%12 012767 000340 174156 T26: MOV «340,PS 



(DISABLE ALL INTERRUPTS 
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SEQ 37 



0036i;0 012767 004000 014230 
003626 012767 003676 014216 



000027 

003634 016703 014150 

003640 012713 020000 

003644 022713 020000 
003650 001404 

003652 012705 020000 



003656 011304 
003660 

003660 104001 

003662 042713 020000 

003666 001403 

003670 005005 

003672 011304 

003674 

003674 104001 

003676 104400 
239 003700 



003700 
003700 
003706 
005714 



003722 
003726 
003732 
003736 
003740 



012767 
012767 
012767 



000030 
016703 
012713 
022713 
001404 
012705 



000340 
004000 
003764 



014062 
100000 
100000 

100000 



174070 
014142 
014130 



003744 011304 



003746 
003746 

003750 



MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 



111 



HLT 
FMT 

SIC 
BEQ 
CLR 

MOV 

HLT 
EMT 

SCOPE 



#4000,IC0UNT 
«2$, ESCAPE 

ft.FREEZl 



0HSCR.R3 
♦BIT13.(R3) 
♦BIT13.(R3) 
1) 

♦BIT13.R5 



(R3).R4 

1 
1 

«eiT13.(R3) 

2$ 

R5 

(R3},R4 

1 
1 



2): 

REGTSl t/TRANSMITTER 00NE/.BIT15 



iSET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

SET TRANSMITTER INTERRUPT ENABLE 

VERIFY THAT TRANSMITTER INTERRUPT ENABLE UAS SET 

8(R5)- EXPECTED VALUE 

sIN SYSTEM CONTROL REGISTER 

TRANSMITTER INTERRUPT ENABLE 

(R4)-ACTUAL DATA IN 

SYSTEM CONTROL REGISTER 

SYSTEM CONTROL REGISTER 

:URITE/READ ERROR 

} CLEAR TRANSMITTER INTERRUPT ENABLE 

s(R5)-EXPECTED DATA IN 

s SYSTEM CONTROL REGISTER. 0 

(R4)- ACTUAL DATA IN 

SYSTEM CONTROL REGISTER 

SYSTEM CONTROL REGISTER 

iURITE/REAO ERROR 

! CHECK FOR ITERATIONS. LOOP 



;SYSTEM CONTROL REGISTER URITE/REAO TEST (NORMAL MODE) 

sSET TRANSMITTER OONE IN SYSTEM CONTROL REGISTER 

I VERIFY THAT TRANSMITTER OONE UAS SET 

: CLEAR TRANSMITTER OONE 

.•VERITY THAT TRANSMITTER OONE UAS CLEARED 



104001 
042713 



T£ \XN.4000.2$ 
T27: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XNa 

MOV 
MOV 
CMP 
BEQ 
MOV 



MOV 

HLT 
EMT 



100000 



1$; 



BIC 



♦340.PS 
MOOO.ICOUNT 
«2 I. ESCAPE 

#.FREEZ1 



DHSCR.R3 
«IT15.(R3) 
#6IT15,(R3) 
1* 

•eiT15.R5 



(R3).R4 

1 
1 

«eiT15.(R3) 



sOISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UlTH DATA 



iPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

:SET TRANSMITTER OONE 

i VERIFY THAT TRANSMITTER OONE UAS SET 

(R5)- EXPECTED VALUE 
IN SYSTEM CONTROL REGISTER 
TRANSMITTER DONE 
(R4)>ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
SYSTEM CONTROL REGISTER 

i URITE/REAO ERROR 

i CLEAR TRANSMITTER OONE 
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SEQ 38 



003754 001403 

003756 00500S 

003760 011304 

003762 

003762 104001 

003764 104400 
240 003766 



003766 

003766 012767 000340 174002 

003774 012767 004000 014054 

004002 012767 004040 014042 



000031 

004010 012777 000200 013772 



004016 005777 013766 

004022 001406 

004024 005005 

004026 017704 013756 

004032 016703 013752 
004036 

004036 104001 

004040 104400 
241 004042 



004042 
004042 
004050 
004056 



004064 



004072 
004076 
004100 



012767 000340 173726 
012767 004000 014000 
012767 004114 013766 



000032 

012777 000400 013716 



005777 013712 
001406 



005005 



BEQ 

CLR 

nov 

HLT 
EHT 



2* 

R5 

(R3),R4 

1 
1 



2t: 

REGTS2 



SCOPE 

t/CHARACTER AVAILABLE/. BIT07 



!(RS)-EXPECTED DATA IN 

: SYSTEM CONTROL REGISTER. 0 

:(R4)- ACTUAL DATA IN 

: SYSTEM CONTROL REGISTER 

: SYSTEM CONTROL REGISTER 

sURITE/REAO ERROR 

:CHECK FOR ITERATIONS. LOOP 



; SYSTEM CONTROL REGISTER URITE/REAO TEST (NORMAL MODE) 

s VERIFY THAT CHARACTER AVAILABLE IS READ ONLY IN NORMAL MODE 



TS \XN. 4000.1$ 
T30: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN^ 

MOV 



TST 
BEQ 
CLR 



MOV 

MOV 
HLT 
EMT 



*340.PS 
*4OOO.IC0UNT 
«1«. ESCAPE 

*,FREEZ1 
•BITOT, SOHSCR 



aOHSCR 

1« 

R5 

SOHSCR, R4 

0HSCR.R3 

1 

1 



s DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



ATTEMPT TO URITE 
CHARACTER AVAILABLE IN 
SYSTEM CONTROL REGISTER 
WAS CHARACTER AVAILABLE SET 

(R5)-EXPECTED DATA 
IN SYSTEM CONTROL REGISTER, 0 
(R4)-ACTUAL DATA IN SYSTEM 
CONTROL REGISTER 

ADDRESS OF SYSTEM CONTROL REGISTER 
SYSTEM CONTROL REGISTER 



II: 

REGTS2 



URITE/REAO ERROR 



SCOPE 

t/CLEAR NON EXISTANT MEMORY/ .BIT08 

s SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 

t VERIFY THAT CLEAR NON EXISTANT MEMORY IS READ ONLY IN NORMAL MODE 



TS \XN, 4000,1$ 
T31: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 



TST 
BEQ 
CLR 



004102 017704 013702 



MOV 



#340, PS 
♦4OO0.IC0UNT 
*lt. ESCAPE 

♦.FREEZl 
MIT08. SOHSCR 



SOHSCR 

I* 

R5 

SOHSCR. R4 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

{SET JP TO LOOP WITH DATA 



J ATTEMPT TO URITE 

: CLEAR NON EXISTANT MEMORY IN 

I SYSTEM CONTROL REGISTER 

iUAS CLEAR NON EXISTANT MEMORY SET 

;(R5)-EXPECTED DATA 

:IN SYSTEM CONTROL REGISTER. 0 

:(R4)-ACTUAL DATA IN SYSTEM 
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SEQ 39 



004106 016703 013676 
004112 

004112 .04001 

004114 104400 
242 004116 



004116 

004116 012767 000340 173652 

004124 012767 004000 013724 

004132 012767 004170 013712 



000033 

004140 012777 002000 013642 



004146 005777 013636 

0C41S2 001406 

004^54 005005 

0041Sb 017704 013626 

004162 016703 013622 
004166 

004166 104001 

004170 104400 
243 004172 



004172 
004172 
004200 
004206 



004214 



004222 
004226 
004230 

004232 

004236 
004242 



012767 000340 173576 
012767 004000 013650 
012767 004244 013636 



000034 

012777 004000 013566 



005777 013562 

001406 

005005 

017704 0135; 
016703 013546 



MOV 
HLT 
EMT 



DHSCR.R3 

1 

1 



1$: 

REGTS2 



SCOPE 

t/NON EXISTANT MEMORY/ .BITIO 



: CONTROL REGISTER 

: ADDRESS OF SYSTEM CONTROL REGISTER 
: SYSTEM CONTROL REGISTER 

:URITE/READ ERROR 



! SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 

! VERIFY THAT NON EXISTANT MEMORY IS READ ONLY IN NORMAL MODE 



TS \XN. 4000.1$ 



T32: 



.IF NB 

.ENOC 
XN-XN^l 



MOV 

MOV 

MOV 

<> 

MOV 



MOV 



TST 
BEQ 
CLR 

MOV 

MOV 
HLT 
EMT 



#340. PS 
#4000.IC0UNT 
«1». ESCAPE 

♦.FREEZl 
4SIT10.8DHSCR 



80HSCR 

1» 

R5 

80HSCR.R4 

DHSCR,R3 

1 

1 



II: 

REGTS2 



SCOPE 

t/MASTER CLEAR/. BITll 



s DISABLE ALL INTERRUPTS 
jSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP UITH DATA 



i ATTEMPT TO WRITE 
J NON EXISTANT MEMORY IN 
: SYSTEM CONTROL REGISTER 
iUAS NON EXISTANT MEMORY SET 

s(R5}-EXPECTE0 DATA 
ilN SYSTEM CONTROL REGISTER. 0 
:(R4)- ACTUAL DATA IN SYSTEM 
s CONTROL REGISTER 

i ADDRESS OF SYSTEM CONTROL REGISTER 
{SYSTEM CONTROL REGISTER 

sURITE/REAO ERROR 



{SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
{VERIFY THAT MASTER CLEAR IS READ ONLY IN NORMAL MODE 



TS \XN.4000,1I 
T33: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN>XN*1 

MOV 



TST 
BEQ 
CLR 



MOV 

MOV 
HLT 



♦340. PS 
«4000.IC0UNT 
♦1». ESCAPE 

♦ , FREEZl 

•eiTii.aoHscR 



ODHSCR 

II 

R5 

«}HSCR.R4 

DHSCR.R3 
1 



(DISABLE ALL INTERRUPTS 
{SET UP FOR 4000 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



{ATTEMPT TO URITE 
{MASTER CLEAR IN 
{SYSTEM CONTROL REGISTER 
{WAS MASTER CLEAR SET 

{(R5)-EXPeCTE0 DATA 
{IN SYSTEM CONTROL REGISTER. 0 
{(R4)-ACTUM. DATA IN SYSTEM 
(CONTRX REGISTER 

(ADDRESS OF SYSTEM CONTROL REGISTER 
(SYSTEM CONTROL REGISTER 
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SEQ 40 



004242 104001 

004244 104400 
244 004246 



004246 

004246 012767 000340 173522 

004254 012767 004000 013574 

004262 012767 004320 013562 



000035 

004270 012777 040000 013512 



004276 005777 013506 

004302 001406 

004304 005005 

0C4306 017704 013476 

004312 016703 013472 
004316 

004316 104001 

004320 104400 
245 004322 



004322 
004322 
004330 
004336 



004344 
004350 
004354 

004? '0 

004364 
004366 



012767 
012767 
012767 



00003«^ 
016703 
012713 
052713 
022713 

001404 
012705 



000340 173446 
004000 013520 
004450 013506 



013440 
001000 
000200 
001200 



1$: 

REGTS2 



EMT 1 
SCOPE 

♦/SILO OVERFLOW/, BIT14 



iURITE/REAO ERROR 



jSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
iVERIFY THAT SILO OVERFLOW IS READ ONLY IN NORMAL MODE 



TS \XN. 4000,1$ 



T34: 



.IF NB 

.ENOC 
)(N-XN*1 



MOV 
MOV 
MOV 
< > 

MOV 



MOV 



TST 
BEQ 
CLR 

MOV 

MOV 
HIT 
EMT 



«40.PS 
«4000,IC0UNT 
#1», ESCAPE 

«.FREEZ1 
MIT14.8DHSCR 



8DHSCR 

1) 

R5 

8DHSCR,R4 

DHSCR.R3 

1 

1 



REGTS3 



: DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOO? WITH DATA 



jATTEMPT TO URITE 
iSILO OVERFLOW IN 
J SYSTEM CONTROL REGISTER 
sWAS SILO OVERFLOW SET 

(R5) -EXPECTED DATA 
IN SYSTEM CONTROL REGISTER, 0 
(R4)- ACTUAL DATA IN SYSTEM 
CONTROL REGISTER 

; ADDRESS OF SYSTEM CONTROL REGISTER 
J SYSTEM CONTROL REGISTER 

: WRITE /READ ERROR 



SCOPE 

t/CHARACTER AVAILABLE/ ,BIT07 

••SYSTEM CONTROL REGISTER WRITE/READ TEST (MAINTENANCE MODE) 
;SET MAINTENANCE MODE 

jSET CHARACTER AVAILABLE IN SYSTEM CONTROL REGISTER 
! VERIFY THAT CHARACTER AVAILABLE WAS SET 
: CLEAR MAINTENANCE MODE 

; VERIFY THAT CHARACTER AVAILABLE CANNOT BE CLEARED 

:SET MAINTENANCE MODE 

t CLEAR CHARACTER AVAILABLE 

i VERIFY THAT CHARACTER AVAILABLE WAS CLEARED 



001200 



TS \XN.4000.3» 
T35: MOV 
MOV 
MOV 
•IF NB <> 
MOV 

• ENOC 
XN«XN»1 

MOV 
MOV 
BIS 
CMP 

BEQ 
MOV 



♦340. PS 
MOOO.ICOUNT 
«3*. ESCAPE 

♦.FREEZl 



DHSCR,R3 
«BIT09.(R3) 
«BIT07,(R3) 
♦BIT09»BIT07,(R3) 

1« 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
tSET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



jPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

iSET MAINTENANCE MODE 

tSET CHARACTER AVAILABLE 

; VERIFY THAT CHARACTER AVAILABLE 

;ANO MAINTENANCE MODE ARE SET 



♦BIT09*BIT07,R5 j(R5)-EXPECTED DATA 

sIN SYSTEM CONTROL REGISTER 
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SEQ 41 



004372 011304 



004374 
004374 

004376 
004402 
004406 
004412 
004414 



104001 

042713 001000 

042713 000200 

022713 000200 
001403 

01 2705 00020C 



1$: 



004420 

004420 104001 

004422 052713 001000 

004426 042713 000200 

004432 022713 001000 

004436 001404 

004440 012705 001000 



0C4444 011304 
004446 

004446 104001 

004450 104400 
246 004452 



2$: 



MOV 

HLT 
EMT 

BIC 
BIC 
CMP 
BEQ 
MOV 



HLT 
EMT 

BIS 
BIC 
CMP 

BEQ 
MOV 



MOV 

HLT 
EMT 



(R3).R4 

1 
1 

♦BIT09,(R3) 
♦BIT07,(R3) 
♦BIT07.(R3) 
2$ 

♦BIT07,R5 



1 
1 

«6IT09.(R3} 
♦BIT07.(R3) 
«6IT09,(R3} 

3$ 

«IT09.R5 



(R3}.R4 

1 
1 



3$: 

REGTS3 



i MAINTENANCE MODE AND CHARACTER AVAILABLE 

i(R4)- ACTUAL DATA IN 

! SYSTEM CONTROL REGISTER 

(SYSTEM CONTROL REGISTER 

i WRITE/READ ERROR 

iC^EAR MAINTENANCE MODE 

(ATTEMPT TO CLEAR CHARACTER AVAILABLE 

(CHARACTER AVAILABLE SHOULD BE SET 

((R5)-EXPECTED DATA IN 
(SYSTEM CONTROL REGISTER 
(CHARACTER AVAILABLE 
(SYSTEM CONTROL REGISTER 

(WRITE /READ ERROR 
(SET MAINTENANCE MODE 
(CLEAR CHARACTER AVAILABLE 
(EXPECT ONLY MAINTENANCE 
(MODE TO BE SET 

!(R5) -EXPECTED DATA IN 
(SYSTEM CONTROL REGISTER, 
(MAINTENANCE MODE BIT 
s(R4}-ACTU/U. DATA IN 
(SYSTEM CONTROL REGISTER 
(SYSTEM CONTROL REGISTER 

:URITE/REAO ERROR 
(CHECK FOR ITERATIONS. LOOP 



SCOPE 

t/NON EXISTANT MEMORY/ .BITIO 
SYSTEM CONTROL REGISTER WRITE/READ TEST (MAIN-^EMANCE MODE) 
SET MAINTENANCE MODE 

SET NON EXISTANT MEMORY IN SYSTEM CONTRX REGISTjER 
VERIFY THAT NON EXISTANT MEMORY UAS SET 
CLEAR MAINTENANCE MODE 

VERIFY THAT NON EXISTANT MEW3RY CANNOT BE CLEARED 
SET MAINTENANCE MODE 
CLEAR NON EXISTANT MEMORY 

VERIFY THAT NON EXISTANT MEMORY ^AS CLCARPD 



004452 
004452 
004460 
004466 



004474 
004500 
004504 
004510 

004514 
004516 



012767 
012767 
012767 



000037 
016703 
012713 
052713 
022713 

001404 
012705 



000340 173316 
004000 013370 
004600 013356 



013310 
001000 
002000 
003000 



003000 



TS \XN. 4000,3* 
T36: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.EHDC 
XN«XN*1 

MOV 
MOV 
BIS 
CMP 

BEQ 
MOV 



♦340. PS 
•4000.ICOUNT 
♦3$, ESCAPE 

♦.FREEZl 



DHSCR,R3 
«BZT09.(R3} 
♦BITIO. {R3) 
♦BIT09»BIT10,{R3) 

1* 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 I'LRATIOKS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
(SET MAINTENANCE MODE 
{SET NON EXISTANT MEMORY 
(VERIFY THAT NON EXISTANT MEMORY 
(AND MAINTENANCE MODE ARE SET 



♦eiT09»6IT10.R5 i(R5)-EXPECTED DATA 

I IN SYSTEM CONTROL REGISTER 
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SEQ 42 



004522 011304 
004524 

004524 104001 

004526 042713 001000 

004532 042713 002000 

004536 022713 002000 

004542 001403 

004544 012705 002000 



004550 

004550 104001 

004552 052713 001000 

004556 042713 002000 

004562 022713 001000 

004566 001404 

004570 012705 001000 



004574 011304 
004576 

004576 104001 

004600 104400 
247 004602 



1): 



2): 



MOV 

HLT 
EMT 

BIC 
BIC 
CMP 
BEQ 
MOV 



HLT 
EMT 

BIS 
BIC 
CMP 

BEQ 
MOV 



MOV 

HLT 
EMT 



(R3).R4 

1 
1 

#BIT09.(R3) 
#BIT10,(R3) 
#BIT10.(R3) 
2) 

«BIT10,R5 



1 
1 

«IT09.(R3) 
«eiT10,(R3) 
•eiT09,(R3) 

3$ 

«BIT09.R5 



(R3).R4 

1 
1 



3$: 

REGTS3 



MAINTENANCE MODE AND NON EXISTANT MEMORY 
(R4)-ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
J SYSTEM CONTROL REGISTER 

WRITE/READ ERROR 

CLEAR MAINTENANCE MODE 

ATTEMPT TO CLEAR NON EXISTANT MEMORY 

NON EXISTANT MEMORY SHOULD BE SET 

(R5)-EXPECTED DATA IN 
SYSTEM CONTROL REGISTER 
NON EXISTANT MEMORY 
SYSTEM CONTROL REGISTER 

iURITE/READ ERROR 
:SET MAINTENANCE MODE 

CLEAR NON EXISTANT MEMORY 

EXPECT ONLY MAINTENANCE 

MODE TO BE SET 

s(R5)-EXPECT£D DATA IN 
; SYSTEM CONTROL REGISTER. 
(MAINTENANCE MODE BIT 
J (R4)- ACTUAL DATA IN 
t SYSTEM CONTROL REGISTER 
: SYSTEM CONTROL REGISTER 

sURITC/REAO ERROR 
: CHECK FOR ITERATIONS. LOOP 



SCOPE 

t/SILO OVERFLOW/. BIT 14 
SYSTEM CONTROL REGISTER URITE/READ TEST (MAINTENANCE MODE) 
SET MAINTENANCE MODE 

SET SILO OVERFLOU IN SYSTEM CONTRO. REGISTER 
VERIFY THAT SILO OVERFLOU WAS SET 
CLEAR MAINTENANCE M{X>E 

VERIFY THAT SILO OVERFLOW CANNOT BE CLEARED 
SET MAINTENANCE MODE 
CLEAR SILO OVERFLOU 

VERIFY THAT SILO OVERFLOU UAS CLEARED 



004602 
004602 
004610 
004616 



004624 
004630 
004634 
004640 

004644 
004646 



012767 
012767 
012767 



000040 
016703 
012713 
052713 
022713 

001404 
012705 



000340 173166 
004000 013240 
004730 013226 



013160 
001000 
040000 
041000 



041000 



TS \XN. 4000,3* 
T37: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
BIS 
CMP 

BEQ 
MOV 



*340.PS 

MOOO.ICOUNT 
*3*. ESC APE 

♦.FREEZl 



0HSCR.R3 
•BIT09.(R3) 
«1T14.(R3) 
•BIT09*8IT14.(R3) 

1« 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP UITH DATA 



PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

SET MAINTENANCE MODE 

SET SILO OVERFLOU 
{VERIFY THAT SILO OVERFLOU 
(AND MAINTENANCE MODE ARE SET 



«1T09*BIT14.R5 j(R5)-EXPECTE0 DATA 

slN SYSTEM CONTROL REGISTER 
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SEQ 43 



004652 011304 



004654 
004654 

004656 
004662 
004666 
0C4672 
004674 



104001 

042713 001000 

042713 040000 

022713 U40000 
001403 

012705 040000 



004700 

004700 104001 

004702 052713 001000 

004706 042713 040000 

004712 022713 001000 

004716 001404 

004720 012705 001000 



004724 011304 



004726 
004726 

004730 



249 
250 
251 
252 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 



104001 

104400 
000000 
000020 
000001 
000000 
000017 



004732 



MOV (R3),R4 

HLT 1 

EMT 1 

1»: BIC #BIT09.(R3) 

BIC #BIT14.(R3) 

CMP #8TT14.(R3) 

BCQ 2v 

MOV #81114. R5 



HLT 1 

FMT 1 

2): SIS «6IT09.(R3) 

BIC «eiT14.(R3) 

CMP «eiT09.(R3) 

BEQ 3( 

MOV «BIT09.R5 



MOV (R3).R4 

HLT 1 
EMT 1 

3» : SCOPE 
XBIT-BITX 
CBIT-BITC 
BITX'I 
BITC-0 
.REPT 
REGTS6 
.IF EQ 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*! 

.LIST 

.ENOC 

.NLIST 

BITX-BITX*BITX 

BITC»BITC*1 

.LIST 

.ENDR 

REGTS6 t/OHLPR/,\BITX,t/LINE 



MAINTENANCE MODE AND SILO OVERFLOW 
(R4)- ACTUAL DATA IN 
SYSTEM CONTROL REGISTER 
i SYSTEM CONTROL REGISTER 

URITE/REAO ERROR 
CLEAR MAINTENANCE MODE 
ATTEMPT TO CLEAR SILO OVERFLOW 
SILO OVERFLOW SHOULD BE SET 

;(R5)-EXPECTED DATA IN 
: SYSTEM CONTROL REGISTER 
iSILO OVERFLOW 
t SYSTEM CONTROL REGISTER 

: WRITE/READ ERROR 
iSET MAINTENANCE MODE 
i CLEAR SILO OVERFLOW 
{EXPECT ONLY MAINTENANCE 
;MOOE TO BE SET 

s(R5)-EXPECTE0 DATA IN 
{SYSTEM CONTROL REGISTER. 
{MAINTENANCE MODE BIT 
(R4)- ACTUAL DATA IN 

SYSTEM CONTROL REGISTER 
SYSTEM CONTROL REGISTER 

: WRITE/READ ERROR 

{CHECK FOR ITERATIONS. LOOP 



15. 

t/DHLPR/ , \BITX. t/LINE 
8ITX-4 



PARAMETER/. \BITC 



PARAMETER/, \BITC 



iLINE PARAMETER REGISTER DATA TEST 
SET BIT 0 IN LINE PARAMETER TO 1 
VERIFY THAT BIT 0 WAS SET 
CLEAR BIT 0 

VERIFY THAT BIT 0 WAS CLEARED 



004732 

004732 012767 000340 173036 



TS SXN.4000,2) 
T40: MOV 



#340. PS 



{DISABLE ALL INTERRUPTS 
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SEQ 44 



004740 012767 004000 013110 
004746 012767 00b020 013076 



000041 

004754 012777 004000 013026 
004762 016703 013026 
004766 012705 000001 
004772 010513 
004774 011304 



004776 020504 
005000 001401 
005002 
STER ERROR 

005002 104002 

STLR ERROR 

STER ERROR 

005004 040513 
005006 011304 

OOSOlO 005704 

005012 001402 

005014 005005 
005016 
STER ERROR 

005016 104002 

STER ERROR 

STER ERROP 

005020 104400 



005022 



000002 
000001 



005022 
005022 
005030 
005036 



005044 

005052 
005056 

005062 



012767 000340 172746 
012767 004000 013020 
012767 005110 013006 



000042 

012777 004000 012736 
016703 012736 
012705 000002 
010513 



MOV 
MOV 
.IF HB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 
,IIF ION 



EMT 



1) 



SIC 
MOV 
IIF NB <>, 
TST 
BEQ 
CLR 

IIF ION 



EMT 



.IIF ION 
•IIF IDN 



#4000.IC0UNT 
#2$. ESCAPE 

♦.FREEZl 



#BIT11.8DHSCR 

0HLPR.R3 

♦1,R5 

R5.(R3) 

(R3).R4 

BIG «.R4 

R5.R4 

1« 

<OHLPR>.<DHLPR>, 



<DHLPR>,<OHBCR>. 

<DHLPR>.<OHSSR>. 

R5.(R3) 

(R3).R4 

BIG «.R4 

R4 

2) 

R5 

<DHLPR>.<DHLPR>, 
2 

<DHLPR>.<DH8CR>. 
<DHLPR>,<DHSSR>. 



:SET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



; MASTER CLEAR INTERFACE 
(SET UP POINTER TO LINE PARAMETER 
sBIT 0 WILL BE SET IN LINE PARAMETER 
jSET BIT 0 

jGET CONTENTS OF LINE PARAMETER 
: CLEAR UNWANTED BITS 
;WAS BIT 0 SET 



HLT 

HLT 
hLT 



iLINE PARAMETER REGI 



3 
4 



iLINE 
:LINE 



PARAMETER 
PARAMETER 



REGI 
REGI 



CLEAR BIT 0 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 0 CLEARED 



HLT 

HLT 
HLT 



:LINE PARAMETER REGI 



3 
4 



;LINE 
:LINE 



PARAMETER 
PARAMETER 



REGI 
REGI 



21 : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX»BITX 

BITC-BITC»1 

.LIST 

.ENDC 

BITX»BITX*BITX 
BITC-BITC*! 

REGTS6 t/OHLPR/.\BITX.t/LINe PARAMETER/. \BITC 



LINE PARAMETER REGISTER DATA TEST 
SET BIT 1 IN LINE PARAMETER TO 1 
VERIFY THAT BIT 1 WAS SET 
CLEAR BIT 1 

{VERIFY THAT BIT 1 WAS CLEARED 



TS \XN.4000,2I 
T41: MOV 
HOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 



«340.PS 
«4000.ICOUNT 
«2 I. ESCAPE 

«. FREEZl 



«BIT11,80HSCR 
DHLPR.R3 
«2.RS 
R5.(R3) 



: DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO LINE PARAMETER 
BIT 1 WILL BE SET IN LINE PARAMETER 
SET BIT 1 
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SEQ 45 



005064 011304 



005066 
005070 
005072 
STER ERROR 

005072 

STER ERROR 

STER ERROR 

005074 
005076 

005100 
005102 
005104 
005106 
STER ERROR 

005106 

STER ERROR 

STER ERROR 

005110 



020504 
001401 



104002 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 

EMT 

,IIF ION 

.IIF IDN 

1*: BIG 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF IDN 
.IIF IDN 



EMT 



(R3).R4 

BIC «.R4 

R5.R4 

1* 

<OHLPR>.<DHLPR>, 



<DHLPR>.<DHBCR>. 

<DHLPR>.<DHSSR>. 

R5.(R3) 

(R3).R4 

BIC «,R4 

R4 

2t 
R5 

<DHLPR>,<DHLPR>. 
2 

<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 



GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
UAS BIT 1 SET 



HLT 

HLT 
HLT 



iLINE PARAMETER REGI 

;LINE PARAMETER REGI 
;LINE PARAMETER REGI 



CLEAR BIT 1 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
UAS BIT 1 CLEARED 



HLT 

HLT 
HLT 



sLINE PARAMETER REGI 



3 
4 



sLINE 
:LINE 



PARAMETER REGI 
PARAMETER REGI 



005112 



000004 
000002 



21: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX»BITX 

BITC-BITC*! 

.LIST 

.ENOC 

BITX-BITX*BITX 
BITC-BITC*1 

REGTS6 t/DHLPR/.\BITX.t/LINE PARAMETER/ . \BITC 

:LINE PARAMETER REGISTER DATA TEST 
:SET BIT 2 IN LINE PARAMETER TO 1 
(VERIFY THAT BIT 2 UAS SET 
s CLEAR BIT 2 

{VERIFY THAT BIT 2 UAS CLEARED 



005112 








TS \XN.4000,2» 




005112 


012767 


000340 


172656 


T42: MOV 


«340,PS 


005120 


012767 


004000 


012730 


MOV 


«4000.ICOUNT 


005126 


012767 


005200 


012716 


MOV 


*2«. ESCAPE 










.IF NB <> 












MOV 


«,FREEZ1 










• ENOC 






000043 






XN-XN*1 




005134 


012777 


004000 


012646 


MOV 


«8IT11.SDHSCR 


005142 


016703 


012646 




MOV 


DHLPR,R3 


005146 


012705 


000004 




MOV 


«4.R5 


005152 


010513 






MOV 


R5.CR3) 


005154 


011304 






MOV 


(R3).R4 










.IIF NB <>. 


BIC «.R4 


005156 


020504 






CMP 


R5,R4 


005160 


001401 






BEQ 


1« 


005162 








.IIF ION 


<OHLPR>,<OHLPR>. 


tOR 












005162 


104002 






EMT 


2 



jDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO LINE PARAfCTER 
BIT 2 WILL QE SET IN LINE PARAMETER 
SET BIT 2 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNUANTED BITS 
UAS BIT 2 SET 



STER ERROR 
i. STFB FBBng 



.IIF ION 
.IIF IDN 



<OHLPR>,<DHBCR>. 
<DHLPR>.<DHSSR>. 



HLT 

HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

.•LINE PARAr^TER REGI 
:LINE PARAMETER REGI 



005164 
005166 



040513 
011304 



it: 



BIC 
MOV 



R5.CR3) 
(R3),R4 



'CLEAR BIT 2 

IrEAD CONTENTS OF LINE PARAMETER 
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SEQ 46 



005170 005704 

005172 001402 

005174 005005 
005176 
STER ERROR 

005176 104002 

STER ERROR 

STER ERROR 

005200 104400 

000010 
000003 



005202 



005202 
005202 
005210 
005216 



005224 
005232 
005236 
005242 
005244 

005246 
005250 
005252 
STER ERROR 

005252 

STER ERROR 

STER ERROR 

005254 
005256 

005260 
005262 
005264 
005266 
STER ERROR 

005266 

STER ERROR 

STER ERROR 

005270 



000020 
000004 



012767 000340 172566 
012767 004000 012640 
012767 005270 012626 



000044 

0127/7 004000 012556 
016703 012556 
012705 000020 
010513 
011304 



020504 
001401 



104002 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



.IIF NB <>. 

TST 
BEQ 
CLR 

.llf ION 



.IIP ION 
•IIF ION 



EMT 



BIC «.M 

R4 

2t 

R5 

<OHLPR>,<OHLPR>, 



<OHLPR>.<DHBCR>. 
<OHLPR>.<OHSSR>. 



i CLEAR UNWANTED BITS 
:UAS BIT 2 CLEARED 



HLT 



HLT 
HLT 



:LINE PARAMETER REGI 

:LINe PARAMETER REGI 
:LINE PARAMETER REGI 



2» : SCOPE 
.IF EQ BITX-4 
BITX-BITX^BITX 
BITC«BITC»1 
.ENDC 

BITX»BITX*BITX 
BITC"BITC*1 

REGTS6 t/OHLPR/.\BITX,t/LINE PARAMETER/ .\BITC 

:LINE PARAf«TER REGISTER DATA TEST 
:SET BIT 4 IN LINE PARAMETER TO 1 
; VERIFY THAT BIT 4 WAS SET 
! CLEAR BIT 4 

: VERIFY THAT BIT 4 WAS CLEARED 



TS \XN,4000.2» 
T43: nOi/ 
MOV 

nov 

•IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 

nov 

MOV 
HOV 

nov 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF IDN 

.IIF ION 

U: BIC 
NOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

,IIF IDN 

EMT 

.IIF IDN 
.IIF ION 
21 : SCOPE 

, ir r a b itx < 



•340. Fa 
*4000.IC0UNT 
«2$. ESCAPE 

*.FREEZ1 



•BIT11.60HSCR 

0HLPR.R3 

#20. R5 

R5.(R3} 

(R3}.R4 

BIC *.R4 

R5.R4 

It 

<OHLPR>,<OHLPR>. 



<OHLPP>.<OHBCR>. 

<DHLPR>.<m ^SR>. 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2« 

RS 

<DHLPR>.<OHLPR>. 
2 

<DHLPR>.<OHBCR>. 
<DHLPR>.<DHSSR>. 



(disable all interrupts 
tset up for 4000 iterations 
sSet up to Escape to next test 

:SET up to loop UITH DATA 



MASTER aEAR INTERFACE 
SET UP POINTER TO LINE PARAMETER 
BIT 4 UILL BE SET IN LINE PARAMETER 
SET BIT 4 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
iUAS BIT 4 SET 



HLT 

HLT 
HLT 



3 
4 



J LINE PARAftTER REGI 

:LINE PARAMETER REGI 
:LINE PARAMETER REGI 



CLEAR BIT 4 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 4 CLEARED 



HLT 

HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

sLiNE PARAMETER REGI 
sLINE PARAMETER REGI 



•NLIST 
BTTX-B1TX»BITX 
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SEQ 47 



005272 



000040 
000005 



005272 

005272 012767 

005300 012767 

005306 012767 



005314 
005322 
0C5326 
005332 
005334 

005336 
005340 
005342 
STER ERROR 

005342 

STER ERROR 

STER ERROR 

005344 
005346 

005350 
005352 
005354 
005356 
STER ERROR 

005356 

STER ERROR 

STER ERROR 

005360 



005362 



000045 

012777 
016703 
012705 
010513 
011304 

020504 
001401 



104002 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



000100 
000006 



000340 
004000 
005360 



004000 
012466 
000040 



172476 
012550 
012536 



012466 



BITC-BITC*1 

.LIST 

.ENDC 

BITX-BITX*BITX 
BITC-BITC*1 

REGTS6 t/DHLPR/,\BITX,t/LINE PARAMt .ER/,\B1TC 

;LINE PARAMETER REGISTER DATA TEST 
sSET BIT 5 IN LINE PARAMETER TO 1 
; VERIFY THAT BIT 5 MAS SET 
: CLEAR BIT 5 

I VERIFY THAT BIT 5 MAS CLEARED 



TS \XN,4000.2f 
T44: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

•IIF ION 

EMT 

.IIF ION 

.IIF ION 

1$: BIC 
MOV 

.IIF NB <>. 

TST 
SEQ 
CLR 

.IIF IDN 



.IIF ION 
.IIF ION 



EMT 



«340.PS 
•4000.IC0UNT 
•2$. ESCAPE 

«.FREEZ1 



«8IT11.80HSCR 

0HLPR.R3 

«40.R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

It 

<DHLPR>.<DHLPR>. 



<OHLPR>.<OHBCR>. 

<OHLPR>.<DHSSR>. 

R5.(R3) 

(RS).R4 

BIC «.R4 

R4 

21 

R5 

<DHLPR>.<DHLPR>. 

2 

<0HLPR>.<OHBCR>. 
<OHLPR>.<OHSSR>. 



{DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO LINE PARAMETER 
BIT 5 WILL BE SET IN LINE PARAMETER 
{SET BIT 5 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNUANTEO BITS 
WAS BIT 5 SET 



HLT 

HLT 
HLT 



3 
4 



5 LINE PARAMETER REGI 

:LINE PARAMETER REGI 
:LINE PARAMETER REGI 



(CLEAR BIT 5 

;REAO CONTENTS OF LINE PARAMETER 
{CLEAR UNWANTED BITS 
(HAS BIT 5 CLEARED 



HLT 

HLT 
HLT 



S 
4 



{LINE PARAMETER REGI 

{LINE PARAMETER REGI 
{LINE PARAMETER REGI 



2$ : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX*BITX 
BITC-BITC*! 

.LIST 
.ENOC 

BITX"BITX*BITX 
BITC"BITC*1 

RE6TS6 t/DHLPR/.\BITX.t/LINE PARAMETER/ . \BITC 

{LINE PARAMETER REGISTER DATA TEST 
{SET BIT 6 IN LINE PARAMETER TO 1 
{VERIFY THAT BIT 6 WAS SET 
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SEQ 48 



iCLEAR BIT 6 

: VERIFY THAT BIT 6 WAS CLEARED 













TS \XN. 4000.2* 












Af "^TiLT 


AAAT AA 


1 7 OA AiL 


T45: 


MOV 


ATAA DC 


iOISABLE ALL INTERRUPTS 






AA^T7A 


A1 


AAAAAA 
U04U0U 


Al OAiLA 




MOV 


AAAAA TPAI lUT 


sSET UP FOR 4000 ITERATIONS 






005376 


012767 


005450 


012446 




MOV 


«2$. ESCAPE 


J SET UP TO ESCAPE TO NEXT TEST 
(SET UP TO LOOP WITH DATA 














.IF 


MB <> 
MOV 




: 3 












.ENDC 


















XN-XN*1 










005404 


012777 


004000 


012376 




MOV 


«6IT11,SDHSCR 


: MASTER CLEAR INTERFACE 






An>\A 1 o 




OlcO /D 






MDV 


nui DO D*^ 


;SET UP POINTER TO LINE PARAMETER 




AAC4 1 


At p7n^ 

vie / w3 


AAA1 AA 








Al AA 


sBIT 6 UILL BE SET IN LINE PARAMETER 




005422 


010513 








MOV 


R5.(R3) 


iSET BIT 6 








ni 1 '(OA 






.IIF 


MOV 
NB <>. 


RTP S OA 


iGET CONTENTS OF LINE PARAMETER 
(CLEAR UNWANTED BITS 






W J*tcO 










CMP 


RS RA 


tUAS BIT 6 SET 








OOt A01 

WX"ff 








BEQ 


1 1 

XV 
















.IIF 


ION 


<QH1 PR> <QHI PR> 


HLT 2 


:LINE PARAMETER REGI 


J 1 en 




Xv*tvvC 








EMT 


c 














.IIF 


ION 


<DHLPR> <DHBCR> 


HLT 3 


:LINE PARAMETER REGI 
:LINE PARAMETER REGI 


STER 


ERROR 








.IIF 


ION 


<DHLPR>.<OHSSR>. 


HLT 4 


STER 


ERROR 




















005434 


040513 






11: 


BIC 


R5.CR5) 


: CLEAR BIT 6 






005436 


011304 








MOV 


{R3).R4 


sREAO CONTENTS OF LINE PARAMETER 












.IIF 


NB <>. 


BIC tf.R4 


: CLEAR UNUANTED BITS 






005440 


005704 








TST 


R4 


iUAS BIT 6 CLEARED 






005442 


001402 








BEQ 


2* 








005444 


005005 








CLR 


R5 








005446 








.IIF 


IDN 


<OHLPR>.<DHLPR>, 


HLT 2 


:LINE PARAMETER REGI 


STER 


ERROR 
005446 


104002 






.IIF 


EMT 

ION 


2 

<OHLPR>.<OHBCR>. 


HLT 3 


:LINE PARAMETER REGI 


STER 


ERROR 








.IIF 


ION 


<OHLPR>.<OHSSR>. 


HLT 4 


:LINE PARA^£TER REGI 


STER 


ERROR 

005450 


104400 






2»: 


SCOPE 









005452 



000200 
000007 



.IF EQ 8ITX-4 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*! 

.LIST 

.ENDC 

BITX»BITX*BITX 
BITC-BITC*! 

REGTS6 t/DHLPR/.\BlTX.t/LlNE PARAMETER/. \8ITC 

(LINE PARAMETER REGISTER DATA TEST 
tSET BIT 7 IN LINE PARAMETER TO 1 
(VERIFY THAT BIT 7 WAS SET 
(CLEAR BIT 7 

(VERIFY THAT BIT 7 UAS CLEARED 



0CS';52 

005452 012767 000340 172316 

005460 012767 004000 012370 

005466 012767 005540 012356 



TS \XN.4000,2) 
T46: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 



♦340, PS 

«4OOO,IC0UNT 
#2$. ESCAPE 

♦.FREEZl 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIWS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 
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SEQ 49 



005474 
005502 
005506 
005512 
005514 

005516 
005520 
005522 
STER ERROR 

005522 

STER ERROR 

STER ERROR 

005524 
005526 

005530 
005532 
005534 
005536 
STER ERROR 

005536 

STER ERROR 

STER ERROR 

005540 



005542 



000047 

012777 004000 
016703 012306 
012705 000200 
010513 
011304 

020504 
001401 



104002 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



000400 
000010 



012306 



XN-XN«1 

nov 

MOV 
MOV 
MOV 
MOV 

.ITF NB <>, 
CMP 
BEQ 

.IIF ION 

EMT 

.Ilf ION 

.IIF ION 

U: BIG 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 
.IIF ION 



EMT 



«6IT11.S0HSCR 

0HLPR,R3 

«200.R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

1» 

<DHLPR>,<DHLPR>, 



<OHLPR>.<OHBCR>. 

<OHLPR>,<OHSSR>, 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2$ 

R5 

<OHLPR>.<OHLPR>, 
2 

<DHLPR>.<DHBCR>. 
<DHLPR>.<OHSSR>. 



jMASTER CLEAR INTERFACE 
;SET UP POINTER TO LINE PARAMETER 
J BIT 7 WILL BE SET IN LINE PARAMETER 
iSET BIT 7 

;GET CONTENTS OF LINE PARAMETER 
i CLEAR UNWANTED BITS 
iUAS BIT 7 SET 



HLT 

HLT 
HLT 



3 
4 



iLINE PARAr^TER REGI 

sLINE PARAMETER REGI 
sLINE PARAMETER REGI 



} CLEAR BIT 7 

J READ CONTENTS OF LINE PARAMETER 
(CLEAR UNWANTED SITS 
iUAS BIT 7 CLEARED 



HLT 

HLT 
HLT 



:LINE PARAMETER REGI 



3 
4 



iLINE 
:LINE 



PARAMETER REGI 
PARAMETER REGI 



2t : SCOPE 
.IF EQ 8ITX-4 
.NLIST 

BITX»BITX»BITX 
BITC-BITC*! 

.LIST 
.ENOC 

BITX-BITX^BITX 
BITC-BITC*! 

REGTS6 t/OHLPR/.\BITX.tA.INE PARAMETER/. \BITC 

sLINE PARAMETER REGISTER DATA TEST 
:SET BIT 10 IN LI»C PARAMETER TO 1 
(VERIFY THAT BIT 10 UAS SET 
] CLEAR BIT 10 

(VERIFY THAT BIT 10 MS CLEARED 



005542 








TS \XN.4000.2I 






005542 


012767 


000340 


172226 


T47: MOV 


♦340, PS 


(DISABLE ALL INTERRUPTS 


005550 


012767 


004000 


012300 


MOV 


•4000.ICOUNT 


(SET UP FOR 4000 ITERATIONS 


005556 


012767 


005630 


012266 


MOV 


«2». ESCAPE 


iSET UP TO ESCAPE TO NEXT TEST 










.IF NB «> 














MOV 


«.FREEZ1 


iSET UP TO LOOP WITH DATA ( 3 










.ENOC 








000050 






XN«XN«1 






005564 


012777 


004000 


012216 


MOV 


«BIT11,80KSCR 


(MASTER CLEAR INTERFACE 


005572 


016703 


012216 




MOV 


DHLPR.R3 


(SET UP POINTER TO LINE PARAMETER 


005576 


012705 


000400 




MOV 


M00.R5 


(BIT 10 WILL BE SET IN LINE PARAMETER 


005602 


010513 






MOV 


RS.(R3) 


(SET BIT 10 


0OS604 


011304 






MOV 


(R3).R4 


(GET CONTENTS OF LINE PARAMETER 










.IIF NB <>. 


BIC «,R4 


(CLEAR UNWANTED BITS 


005606 


020504 






CMP 


R5,R4 


(WAS BIT 10 SET 


005610 


001401 






BEQ 


It 




005612 








•IIF ION 


<DHLPR>.<DHLPR>, 


HLT 2 (LINE 
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SEQ 50 



005612 104002 
STER ERROR 



STER ERROR 

005614 
005616 

005620 
005622 
005624 
005626 
STER ERROR 

005626 

STER ERROR 

STER ERROR 

005630 



005632 



005632 
005632 
005640 
005646 



005654 
005662 
005666 
005672 
005674 

005676 
005700 
005702 
STER ERROR 

005702 

STER ERROR 

STER ERROR 

005704 
005706 

005710 

005712 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



001000 
000011 



012767 
012767 
012767 



000051 
012777 
016703 
012705 
010513 
011304 

020504 
001401 



104002 



040513 
011304 

005704 
001402 



000340 
004000 
005720 



004000 
012126 
001000 



172136 
012210 
012176 



012126 



EMT 

.IIF ION 

.IIF ION 

1*: BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 
.IIF ION 



EMT 



<DHLPR>.<DHBCR>, 

<DHLPR>.<DHSSR>, 

R5.(R3) 

CR3),R4 

9IC «.R4 

R4 

2) 

R5 

<DHLPR>,<DHLPR>. 
2 

<OHLPR>.<DHBCR>, 
<DHLPR>,<DHSSR>. 



HLT 
HLT 



3 
4 



jLlNE PARAMETER REGI 
:LINE PARAMETER REGI 



jCLEAR BIT 10 

J READ CONTENTS QF LINE PARAMETER 
s CLEAR UNWANTED BITS 
:UAS BIT 10 CLEARED 



HLT 

HLT 
HLT 



3 
4 



jLINE PARAMETER REGI 

sLINE PARAMETER REGI 
:LINE PARAMETER REGI 



2»: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*! 

.LIST 

.EM)C 

BITX-BITX*BITX 
BITC-BITCti 

REGTS6 t/OHLPR/.\BITX.t/LlNE PARAHETER/.NBITC 

:LINE PARAHETER REGISTER DATA TEST 
:SET BIT 11 IN LINE PARAMETER TO 1 
J VERIFY THAT BIT II MS SET 
i CLEAR BIT 11 

s VERIFY THAT BIT 11 UAS CLEARED 



TS \XN,4000.2I 
T50: MOV 
MOV 
MOV 
.IF NB <> 
hOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 
MOV 

,IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 

.IIF ION 

1$: BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 

CLn 



♦340, PS 
•4000.IC0UNT 
•2 ». ESCAPE 

♦.FREEZl 



«eiTll,80HSCR 

0HLPR,R3 

♦1000. R5 

R5.(R3) 

(R3),R4 

BIC ♦.R4 

R5,R4 

1) 

<0HLPR>.<DHLPR>. 



<0HLPR>,<0HBCR>. 
<0HLPR>.<0HSSR>. 



R5.(R3) 

(R3).R4 

BIC ♦,R4 

R4 

2$ 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP UITH DATA 



J MASTER CLEAR INTERFACE 

iSET UP POINTER TO LINE PARAHETER 

:BIT 11 UILL BE SET IN LINE PARAMETER 
sSET BIT 11 

:GET CONTENTS OF LINE PARAHETER 
i CLEAR UNWANTED BITS 
I UAS BIT 11 SET 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

sLINE PARAMETER REGI 
:LINE PARAMETER REGI 



(CLEAR BIT 11 

:REAO CONTENTS OF LINE PARAMETER 
(CLEAR UNWANTED BITS 
(WAS BIT 11 CLEARED 



005716 



.IIF IDN 



<DHLPR>.<DHLPR>. 



HLT 



(LINE PARAMETER REGI 
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SEQ 51 



005716 104002 

STEP ERROR 

STER ERROR 

005720 104400 



005722 



002000 
000012 



005722 

005722 012767 

005730 012767 

005736 012767 



000052 

005744 012777 

005752 016703 

005756 012705 

005762 010513 

005764 011304 

005766 020504 

005770 001401 
005772 
STER ERROR 

005772 104002 

STER ERROR 

STER ERROR 

005774 040513 

005776 011304 

006000 005704 

006002 001402 

006004 005005 
006006 
STER ERROR 

006006 104002 

STER ERROR 

STER ERROR 

006010 104400 



000340 
004000 
006010 



004000 
012036 
002000 



172046 
012120 
012106 



012036 



.IIF ION 
.IIF ION 



EUT 



<OHLPR>.<OHBCR>. 
<DHLPR>.<OHSSR>, 



HLT 
HLT 



3 
4 



:LINE PARAMETER RECI 
sLINE PARAMETER REGI 



2t : SCOPE 
.IF EQ BITX 4 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*1 

.LIST 

.ENOC 

BITX-BITX*BITX 
BITC-BITC*1 

REGTS6 t/OHLPR/.\BITX,t/LINE PARAMETER/ .\BITC 

J LINE PARAMETER REGISTER DATA TEST 
:SET BIT 12 IN LINE PARAMETER TO 1 
J VERIFY THAT BIT 12 WAS SET 
; CLEAR BIT 12 

: VERIFY THAT BIT 12 WAS CLEARED 



TS \XN,4000,2* 
T51: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>, 
CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 

,IIF ION 

It: BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 

EMT 

.IIF ION 

.IIF ION 

2$ : SCOPE 
.IF EQ BITX -4 
.NLIST 

BITX-BITX*BITX 
BITC"BITC*1 



♦340. PS 
«4000.IC0UNT 
*2t. ESCAPE 

*.FREEZ1 



«6IT11,SDHSCR 

0HLPR.R3 

♦2000.RS 

RS.(R3) 

(R3).R4 

BIC •.R4 

RS,R4 

It 

<DHLPR>.<DHLPR>, 



<0HLPR>,<0HBCR>. 

<OHLPR>.<OHSSR>. 

R5.(R3) 

CR3).R4 

BIC «,R4 

R4 

2$ 

R5 

<OHLPR>.<OHLPR>. 
2 

<OHLPR>,<OHBCR>, 
<OHLPR>.<OHSSR>, 



: DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



! MASTER CLEAR INTERFACE 

;SET UP POINTER TO LINE PARAMETER 

:BIT 12 UILL BE SET IN LINE PARAMETER 
;SET BIT 12 

;6ET CONTENTS OF LINE PARAMETER 
i CLEAR UNWANTED BITS 
2 MAS BIT 12 SET 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

:l INE PARAMETER REGI 
:LINE PARAMETER REGI 



CLEAR BIT 12 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 12 CLEARED 



HLT 

HLT 
HLT 



3 
4 



sLINE PARAMETER REGI 

{LINE PARAMETER REGI 
(LINE PARAMETER REGI 



.ENDC 
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SEQ 52 



006012 



004000 
000013 



006012 

006012 012767 

006020 012767 

006026 012767 



006034 
006042 
006046 
006052 
006054 



000053 
012777 
016703 
012705 
010513 
011304 



006056 020504 
006060 001401 
006062 
STER ERROR 

006062 104002 

STER ERROR 

STER ERROR 

006064 040513 
006066 011304 

006070 005704 

006072 001402 

006074 OOSr )5 
006076 
STER ERROR 

006076 104002 

STER ERROR 

STER ERROR 

006100 104400 



010000 
000014 



006102 



000340 
004000 
006100 



004000 
011746 
004000 



171756 
012030 
012016 



011746 



BITX-BITX*BITX 
3ITC»BITC»1 

REGTS6 t/DHLPR/.\BITX.t/LINE PARAMETER/, \BITC 



LINE PARAMETER REGISTER DATA TEST 
SET BIT 13 IN LINE PARAMETER TO 1 
VERIFY THAT BIT 13 MAS SET 
CLEAR BIT 13 

VERIFY THAT BIT 13 UAS C>.EAREO 



TS \XN.4000.2» 
T52: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 
.IIF ION 

it: eic 

MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



EMT 



.IIF ION 
.IIF ION 



♦340. PS 
MOOO.ICOUNf 
«2*. ESCAPE 

♦.FREEZl 



«eiT11.80HSCR 

0HLPR,R3 

M000.R5 

R5.(R3) 

(R3}.R4 

BIC «.R4 

R5.R4 

1* 

<DHLPR>.<DHLPR>. 



<DHLPR>.<OHBCR>. 

<DHLPR>,<OHSSR>. 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

21 

RS 

<OHLPR>.<OHLPR>, 
2 

<OHLPR>.<OHBCR>. 
<OHLPR>.<OHSSR>. 



: DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



:MASTER CLEAR INTERFACE 

8 SET UP POINTER TO LINE PARAMETER 

:BIT 13 UILL BE SET IN LINE PARAMETER 

sSET BIT 13 

:GET CONTENTS OF LINE PARAMETER 
(CLEAR UNUANTEO BITS 
iUAS BIT 13 SET 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

I LINE PARAMETER REGI 
{LINE PARAMETER REGI 



CLEAR BIT 13 

REAO CONTENTS OF LINE PARAMETER 
CLEAR imUANTEO BITS 
UAS BIT 13 CLEARED 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

(LINE PARAMETER REGI 
sLINC PARAMETER REGI 



2» : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-6ITX*BITX 
BITC-BITC»l 

.LIST 
.ENDC 

BITX-BITX»BITX 
BITC-BITC*! 

REGTS6 t/DHLPR/.\BITX.t/LINE PARAMETER/. \8ITC 

iLINE PARAMETER REGISTER DATA TEST 
iSET BIT 14 IN LINE PARAMETER TO 1 
(VERIFY THAT BIT 14 MS SET 
(CLEAR BIT 14 

(VERIFY THAT BIT 14 UAS CLEARED 
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:€Q 53 



006102 

006102 012767 000340 171666 

006110 012767 004000 011740 

006116 012767 006170 011726 



000054 

006124 012777 004000 011656 
006132 016703 011656 
0061S6 012705 010000 
006142 010513 



006144 011304 

006146 020504 
006150 001401 
006152 
STER ERROR 

006152 104002 

STER ERROR 



STER ERROR 

0C6154 
0C6156 

006160 
006162 
006164 
006166 
STER ERROR 

006166 

STER ERROR 

STER ERROR 

006170 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



020000 
000015 



006172 



006172 

006172 012767 000340 171576 

006200 012767 004000 011650 

006206 012767 006260 011636 



000055 

006214 012777 004000 011566 
006222 016703 011566 



TS \XN.4000.2t 
T53: MOV 
MOV 

nov 

.IF HB <> 
MOV 

.ENOC 
XN>XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.Iir ION 

EMT 

.IZF ION 

.IIF ION 

It: BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 
.IIF ION 



EMT 



♦340. PS 
«4000.ICOUNT 
«2t. ESCAPE 

♦.FREEZl 



«8IT11.S0HSCR 

0HLPR.R3 

41 0000. R5 

R5.(R3) 

(R3).R4 

BIC «,R4 

R5.R4 

li 

<DHLPR>.<OHLPR>. 



<OHLPR>.<OHBCR>. 

<OHLPR>.<OHSSR>. 

R5.(R3) 

(R3),R4 

BIC «.R4 

R4 

2< 

RS 

<DHLPR>.<DHLPR>. 

2 

<0HLPR>.<0HBCR>. 
<OHLPR>.<DHSSR>. 



jOISABLE ALL INTERRUPTS 

J SET UP FOR 4000 ITERATIONS 

tSET UP TO ESCAPE TO NEXT TEST 

;SE1 UP TO LOOP WITH DATA 



; MASTER CLEAR INTERFACE 

sSET UP POINTER TO LINE PARAMETER 

:BIT 14 WILL BE SET IN LINE PARAMETER 
sSET BIT 14 

;GET CONTENTS OF LINE PARAMETER 
i CLEAR UNWANTED BITS 
:UAS BIT 14 SET 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

:LINE PARAMETER REGI 
iLINE PARAMETER REGI 



CLEAR BIT 14 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 14 CLEARED 



HLT 

HLT 
HLT 



3 
4 



iLINE PARAMETER lt££I 

iLINE PARAMETER REGI 
{LINE PARAMETER REGI 



21 : SCOPE 
•IF EQ BITX-4 

.NLIST 

BITX-BITX.BITX 
BITC-BITC*1 
• LIST 
.ENOC 

BITX-8ITX»BITX 
BITC-BITC*1 

REGTS6 t/DHLPR/.\BITX.t/LlNE PARAMETER/ . \BITC 

iLINE PARAMETER REGISTER DATA TEST 
(SET BIT 15 IN LINE PARAMETER TO 1 
{VERIFY THAT BIT 15 UAS SET 
{CLEAR BIT 15 

{VERIFY THAT BIT IS UAS CLEARED 



TS \XN, 4000,2* 
T54: MOV 
MOV 
MOV 
.IF NB «> 
MOV 

.ENOC 
XN«XN»1 

MOV 
MOV 



•340, PS 
MOOO.ICOUNT 
•2 «. ESCAPE 

«. FREEZl 



«BIT11.0OHSCR 
0HLPR.R3 



i DISABLE ALL INTERRUPTS 
tSET UP FOR 4000 ITERATIONS 
I SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

{SET UP POINTER TO LINE PARAMETER 



; 3 
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SEQ 54 



006226 012705 020000 

006232 010513 

006234 011304 

006236 020504 

006240 001401 



006242 
STER ERROR 

006242 104002 

STER ERROR 

STER ERROR 

006244 040513 
006246 011304 

006250 005704 

006252 001402 

006254 005005 
006256 
STER ERROR 

006256 104002 

STER ERROR 

STER ERROR 

006260 104400 



040000 
000016 



006262 



006262 
006262 
006270 
006276 



006304 
006312 
006316 
006322 
006324 

006326 
006330 
006332 
STER ERROR 

006332 

CTCD COOftD 



012767 000340 171506 
012767 004000 011560 
012767 006350 011546 



000056 

012777 004000 011476 
016703 011476 
012705 040000 
010513 
011304 

020504 
001401 



104002 



MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 

EMT 

.IIF ION 

•IIF ION 

It: BIG 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF IDN 
.IIF IDN 



EMT 



020000.R5 

R5.(R3) 

(R3).R4 

BIG «.R4 

R5.R4 

1) 

<OHLPR>.<OHLPR>. 



<OHLPR>.<OHBGR>. 

<OHLPR>.<OHSSR>, 

R5.(R3) 

(R3).R4 

BIG «.R4 

R4 

2t 

R5 

<OHLPR>.<DHLPR>. 
2 

<DHLPR>.<OHBCR>, 
<OHLPR>.<DHSSR>. 



.PTT 15 WILL BE SET IN LINE PARAMETER 

SET BIT 15 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 15 SET 



HLT 

HLT 
HLT 



:LINE PARAMETER REGI 

J LINE PARAMETER REGI 
jLINE PARAMETER REGI 



CLEAR BIT 15 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
I WAS BIT 15 CLEAREO 



HLT 

HLT 
HLT 



3 
4 



sLINE PARAMETER REGI 

sLINE PARAMETER REGI 
iLINE PARAMETER REGI 



2 J : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX*BITX 

BITC«BITC*1 

.LIST 

.ENDC 

BITX-BITX*BITX 
BITC-BITC*1 

REGTS6 t/OHLPR/.\BITX.t/LINE PARAMETER/ . \BITC 



LINE PARAMETER REGISTER DATA TEST 
SET BIT 16 IN LINE PARAMETER TO 1 
VERIFY THAT BIT 16 WAS SET 
CLEAR BIT 16 

VERIFY THAT BIT 16 WAS CLEARED 



TS \XN. 4000.2* 
T55: MOV 
MOV 
MOV 
.ir NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 



EMT 



.IIF IDN 



♦340. PS 

MOCC.ICOUNT 
♦2 ». ESCAPE 

♦.FREEZl 



•BIT11.80HSCR 

DHLPR.R3 

«40000.RS 

R5.(R3) 

(R3),R4 

6IC ».R4 

R5.R4 

IS 

<OHLPR>.<DHLPR>. 



<DHLPR>.<DHBCR>. 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



! MASTER CLEAR INTERFACE 

jSET UP POINTER TO LINE PARAMETER 

.BIT 16 WILL BE SET IN LINE PARAMETER 
;SET BIT 16 

iGET CONTENTS OF LINE PARAMETER 
i CLEAR UNWANTED BITS 
sWAS BIT 16 SET 



HLT 
HLT 



2 
3 



:LINE PARAMETER REGI 
J LINE PARAMFTER REGI 



STER ERROR 



•IIF IDN 



<DHLPR>,<DHSSR>. 



HLT 



:LINE PARAMETER REGI 
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SEQ 55 



006334 
006336 

006340 
006342 
006344 
006346 
STER ERROR 

006346 

STER ERROR 

STER ERROR 

006350 



040513 
011304 

005704 
001402 
005005 



104002 



104400 



1): 



BIC 
HOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF IDN 
.IIF ION 



EMT 



R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2* 

R5 

<DHLPR>.<OHLPR>, 



<DHLPR>.<DHeCR>, 
<DHLPR>.<DHSSR>. 



CLEAR BIT 16 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 16 CLEARED 



HLT 

HLT 
HLl 



3 
4 



sLINE PARAMETER REGI 

sLINE PARAMETER REGI 
sLINE PARAMETER REGI 



006352 



100000 
000017 



2$: SCOPE 
.IF EQ BITX-A 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*! 

.LIST 

.ENOC 

BITX-BITX»BITX 
BITC-BITC*! 

REGTS6 t/DHLPR/.\BITX.t/LINE PARAMETER/. \BITC 

.•LINE PARAMETER REGISTER DATA TEST 
:SET BIT 17 IN LINE PARAMETER TO 1 
: VERIFY THAT BIT 17 WAS SET 
.•CLEAR BIT 17 

: VERIFY THAT BIT 17 WAS CLEAREO 



006352 








TS \XN.4000.2$ 




006352 


012767 


000340 


171416 


T56: MOV 


#340. PS 


006360 


012767 


004000 


011470 


MOV 


MOOO.ICOUNT 


006366 


012767 


006440 


011456 


MOV 


*2$. ESCAPE 










.IF NB <> 












MOV 


#.FREEZ1 










.ENDC 






000057 






XN*XN*1 




006374 


012777 


004000 


011406 


MOV 


4BIT11.80HSCR 


006402 


016703 


011406 




MOV 


0HLPR.R3 


006406 


012705 


100000 




MOV 


*100000.R5 


006412 


010513 






MOV 


R5.CR3) 


006414 


01 1304 






MOV 


CR3).R4 










.IIF NB <>. 


BIC *.R4 


005416 


020504 






CMP 


R5,R4 


006420 


001401 






BEQ 


11 


006422 








.IIF IDN 


<Di lPR>,<OHLPR>, 


iOR 












006422 


104002 






EMT 


2 



:DISA6LE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
.•SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 

;BIT 17 MILL BE SET IN LINE PARAMETER 
I SET BIT 17 

;GET CONTENTS OF LINE PARAMETER 
: CLEAR UNWANTED BITS 
;UAS BIT 17 SET 



STER ERROR 

STER ERROR 

006424 040513 
006426 011304 

006430 005704 

006432 001402 

006434 005005 
006436 
STER ERROR 

006436 104002 



.IIF ION 

.IIF IDN 

1»: BIC 
MOV 

•IIF NB <>. 

TST 
BEQ 
CLR 

.IIF IDN 



<0HLPR>,<0H6CR>. 

<OHLPR>.<DhSSR>. 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2i 

R5 

<DHLPR>.<DHLPR>, 



HLT 

HLT 
HLT 



3 
4 



:LINE PARAMETER REGI 

iLINE PARAMETER REGI 
:LINE PARAMETER REGI 



sCLEAR BIT 17 

READ CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 17 CLEARED 



EMT 



.IIF IDN 



<DHLPR>,<DHBCR>, 



HLT 

HLT 



2 
3 



iLINE PARAMETER REGI 
{LINE PARAMETER REGI 



STER ERROR 



.IIF IDN 



<DHLPR>,<DHSSR>. 



HLT 



iLINE PARAMETER REGI 
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SEQ 56 



006440 104400 



268 
269 
270 
271 
2^3 
274 
275 
276 
277 
278 
279 



000000 
000020 
000000 
000020 
000001 
000000 
000020 



006442 



2) SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-B1TX»BITX 

BITC-BITC»1 

.LIST 

.ENOC 

BITX-BITX*BITX 

BITC-BITC»1 

XBIT-BITX 

CBIT-BITC 

BITX-1 

BITC-0 

.REPT 16. 

REGTS6 t/OHBCR/.\BITX,t /BREAK CONTROL/. \BITC 
•NLIST 

BITX-BITX*BITX 

BITC-BITC»1 

.LIST 

.ENDR 

REGTS6 t/OHBCR/.\BITX.t/BREAK CONTROL/. \BITC 



{BREAK CONTROL REGISTER DATA TEST 
.•SET BIT 0 IN BREAK CONTROL '0 1 
! VERIFY THAT BIT 0 UAS SET 
: CLEAR BIT 0 

(VERIFY THAT BIT 0 UAS CLEARED 



006442 
006442 
006450 
006456 



006464 
006472 
006476 
006502 
006504 

006506 
006510 

TER ERROR 

006512 
TER ERROR 

006512 

TER ERROR 

006514 
006516 

006520 
006522 
006524 

TER E^ROR 

006526 
TER ERROR 

006526 



012767 000340 171326 
012767 004000 011400 
012767 006530 011366 



000060 

012777 004000 011316 
016703 011326 
012705 000001 
010513 
011304 

020504 
001401 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



TS \XN. 4000.2* 
T57: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN^l 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB o, 
CMP 
BEQ 

•IIF ION 



.IIF ION 

I 

.IIF ION 
ii: 



EMT 



BIC 
MOV 
.IIF NB <>, 
TST 
BEQ 
CLR 

.IIF IDN 



.IIF IDN 



EMT 



♦340.PS 

♦4000.ICOUNT 
♦2 ». ESCAPE 

♦.FREEZl 



«eiT11.90HSCR 

DHBCR.R3 

♦1.R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

It 

<DHBCR>,<DHLPR>, 
<OHBCR>.<DHBCR>. 



<DHBCR>.<OHSSR>, 

R5.(R3) 

(R3).K4 

BIC «.R4 

R4 

2» 

R5 

<DHBCR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 
3 



•.DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 0 WILL BE SET IN BREAK CONTROL 
SET BIT 0 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 0 SET 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
s BREAK CONTROL REGIS 

: BREAK CONTROL REGIS 



(CLEAR BIT 0 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 0 CLEARED 



HLT 
HLT 



2 
3 



i BREAK CONTROL REGIS 
(BREAK CONTROL REGIS 



CZOHA 0 MACfiO V04.00 27-JUN-85 12:46:01 PAGE 17-35 



SEG 57 



TER ERROR 

006530 104400 
000002 
000001 

006532 



.IIF ION 



<DHBCR>,<OHSSR>. 



HLT 



i BREAK CONTROL REGIS 



006532 

006532 012767 000340 171236 

006540 012767 004000 011310 

006546 012767 006620 011276 



006554 
006562 
0C6566 
006572 
006574 

006576 
006600 

TER ERROR 

006602 
TER ERROR 

006602 

TER ERROR 

006604 
006606 

006610 
006612 
006614 

TER ERROR 

006616 
TER ERROR 

006616 

TER ERROR 

006620 



006622 



000061 

012777 004000 011226 
016703 011236 
012705 000002 
010513 
011304 

020504 
001401 



104005 



040513 
011304 

005704 
001402 
005005 



104003 



104400 
000004 
000002 



006622 

006622 012767 000340 171146 

006630 012767 004000 011220 

(WitTt niaiiT ontTio onaot 



2»: SCOPE 

BITX-BITX*BITX 

BITC-BITC»1 

REGTS6 t/DHBCR/ABITX.t/BREAK CONTROL/ . \BITC 



BREAK CONTROL REGISTER DATA TEST 
SET BIT 1 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 1 WAS SET 
CLEAR BIT 1 

! VERIFY THAT BIT 1 UAS CLEARED 



TS \XN.4000,2$ 
T60: MOV 
MOV 
MOV 
.IF N6 <> 
MOV 

.ENDC 
XN«XN»1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF IDN 
II: 



EMT 



BIC 
MOV 

.IIF NB <>, 
TST 
BEQ 
CLR 

.IIF IDN 



.IIF ION 



.IIF IDN 



EMT 



*340.PS 
«4000,IC0UNT 
«2$, ESCAPE 

«.FREEZ1 



WlTll.aOHSCR 

DHBCR.R3 

♦2.R5 

R5,(R3) 

(R3),R4 

BIC «.R4 

R5,R4 

1) 

<DHBCR>.<DHLPR>. 
<D»«CR>.<OHBCR>. 



<DHBCR>.<DHSSR>. 

R5.(R3) 

(R3},R4 

BIC «.R4 

R4 

2$ 

R5 

<DHBCR>,<OHLPR>. 
<DHBCR>.<DHBCR>. 



<DHBCR>.<DHSSR>. 



;OISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
5 SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



MA'S-'ER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 1 WILL BE SET IN BREAK CONTROL 
SET BIT 1 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 1 SET 



HLT 
HLT 

HLT 



2 
3 



:BREAK CONTROL REGIS 
-.BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



CLEAR BIT 1 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 1 CLEARED 



HLT 
HLT 

HLT 



2 
3 



{BREAK CONTROL REGIS 
:6REAK CONTROL REGIS 

: BREAK CONTROL REGIS 



2* : SCOPE 

BITX=BITX*BITX 

BITC-BITC*! 

REGTS6 t/OHBCR/.\BITX,t/BREAK CONTROL/. \BITC 



BREAK CONTROL REGISTER DATA TEST 
SET BIT 2 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 2 UAS SET 
CLEAR BIT 2 

VERIFY THAT BIT 2 WAS CLEARED 



TS \XN,4000.2I 
T61: MOV 
MOV 

im 



#340. PS 
44000.IC0UNT 



J DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
l 5t l U P TO E5LME l U WtAI \ l 
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SEQ 58 



.IF NB 

.ENOC 



< > 
HOV 





000062 




XN-XN*1 




006644 


012777 


004000 011136 




MOV 


006652 


016703 


011146 




MOV 


006656 


012705 


000004 




MOV 


006662 


010513 






MOV 


006664 


011304 






MOV 








.IIF NB 


<> . 


006666 


020504 






CMP 


006670 


001401 






BEQ 



TER ERROR 

006672 
TER ERROR 

006672 104003 

TER ERROR 

006674 040513 
006676 011304 

006700 005704 
0C6702 001402 
006704 005005 

TER ERROR 

006706 
TER ERROR 

006706 104003 

TER ERROR 

006710 104400 
000010 
000003 

006712 



.IIF ION 
•IIF IDN 

.IIF IDN 
1»: 



EMT 



BIC 
MOV 
IIF NB <>, 
TST 
BEQ 
CLR 

IIF IDN 



.IIF IDN 



.IIF IDN 



EMT 



♦.FREEZl 



«BIT11,SDHSCR 

DHBCR,R3 

♦4.R5 

R5.(R3) 

(R3].R4 

BIC «,R4 

R5.R4 

U 

<OHBCR>,<DHLPR>. 
<DHBCR>,<DHBCR>. 



<DHeCR>.<OHSSR>. 

R5.(R3) 

(R3).R4 

BIC «,R4 

R4 

2i 

R5 

<0H6CR>.<DHLPR>. 
<0HBCR>,<DHBCR>. 



<DHBCR>.<DHSSR>. 



J SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 2 WILL BE SET IN BREAK CONTROL 
SET BIT 2 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNUAN1ED BITS 
WAS BIT 2 SET 



HLT 
HLT 

HLT 



2 
3 



; BREAK 
: BREAK 



CONTROL REGIS 
CONTROL REGIS 



sBREAK CONTROL REGIS 



CLEAR BIT 2 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 2 CLEARED 



HLT 
HLT 

HLT 



2 
3 



:BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

: BREAK CONTROL REGIS 



2*: SCOPE 

BITX>BITXtBITX 

BITC«BITC»1 

REGTS6 t/DHBCR/,\BITX.t /BREAK CONTROL/. \BITC 



: BREAK CONTROL REGISTER DATA TEST 
iSET BIT 3 IN BREAK CONTROL TO 1 

VERIFY THAT BIT 3 WAS SET 

CLEAR BIT 3 

VERIFY THAT BIT 3 WAS CLEARED 



006712 








TS \XN.4000 


006712 


012767 


000340 


171056 


T62: 


MOV 


006720 


012767 


004000 


011130 




MOV 


006726 


012767 


007000 


011116 




MOV 










.IF NB 


<> 












MOV 










.ENOC 






000063 






XN>XNtl 




006734 


012777 


004000 


011046 




MOV 


006742 


016703 


011056 






MOV 


006746 


012705 


000010 






MOV 


006752 


010513 








MOV 


006754 


011304 








MOV 










.IIF NB 


<>. 


006756 


020504 








CMP 


006760 


001401 








BEQ 



TER ERROR 

006762 
TER ERROR 

tmiM 



.IIF IDN 
.IIF IDN 



#340. PS 

♦4000.ICOUNT 
«2«. ESCAPE 

♦.FREEZl 



«6IT11.80HSCR 

DHBCR,R3 

#10. R5 

R5.(R3) 

(R3).R4 

BIC #,R4 

R5,R4 

1) 

<DHBCR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 3 UILL BE SET IN BREAK CONTROL 
SET BIT 3 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNUANTED BITS 
UAS BIT 3 SET 



HLT 
HLT 



2 
3 



: BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 



TER ERROR 



.IIF IDN 



<DHBCR>.<DHSSR>. 



HLl 



.•BREAK CONTROL REGIS 
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SEQ 59 



006764 040513 

006766 011304 

006770 005704 

006772 001402 

006774 C05005 

TER ERROR 

006776 
' ti ERROR 

006776 104003 

TER ERROR 

007000 104400 
000020 
000004 



It 



007002 



007002 
007002 
007010 
007016 



007024 
007032 
007036 
007042 
007044 

007046 
007050 

TER ERROR 

007052 
TER ERROR 

007052 

TER ERROR 

007054 
007056 

007060 
007062 
007064 

TER ERROR 

007066 
TER ERROR 

007066 

TER ERROR 

007070 



012767 000340 170766 
012767 004000 011040 
012767 007070 011026 



000064 

012777 004000 010756 
016703 010766 
012705 000020 
010513 
011304 

020504 
001401 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



104400 
000040 
000005 



BIC 
MOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF ION 



EMT 



R5.CR3) 

CR3).R4 

BIC *.R4 

R4 

2) 

R5 

<OHBCR>.<OHLPR>, 
<OHBCR>,<OHBCR>, 



<DHBCR>,<OHSSR>, 



CLEAR BIT 3 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
MAS BIT 3 CLEARED 



HLT 
HLT 

HLT 



? 
3 



: BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



2$: SCOPE 

BITX-BITX*BITX 

BITC-BITC*! 

REGTS6 t/DHBCR/.\BITX.t/BREAK CONTROL/. \BITC 



BREAK CONTROL REGISTER DATA TEST 
SET BIT 4 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 4 UAS SET 
CLEAR BIT 4 

VERIFY THAT BIT 4 UAS CLEARED 



TS \XN, 4000.2* 
T63: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 

;iov 

MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF ION 
1«: 



EMT 



BIC 
MOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



EMT 



•IIF IDN 



#340. PS 
#4000.IC0UNT 
#2 », ESCAPE 

♦.FREEZl 



«BIT11.90HSCR 

DHBCR,R3 

«20.R5 

R5.(R3) 

(R3).R4 

BIC ♦,R4 

R5.R4 

1« 

<0HBCR>,<0HLPR>. 
<0HBCR>.<0HBCR>. 



<0HBCR>.<0HSSR>. 

'5,CR3) 

V 3).R4 

BIC «.R4 

R4 

2* 

R5 

<0H8CR>.<0HLPR>, 
<DHBCR>.<0HBCR>. 



<DHBCR>.<0HSSR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

;SET OP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 4 WILL BE SET IN BREAK CONTROL 
SET BIT 4 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 4 SET 



HLT 
HLT 

HLT 



2 
3 



;BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



CLEAR BIT 4 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 4 CLEARED 



HLT 
HLT 

HLT 



2 
3 



sBREAK CONTROL REGIS 
i BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



2* : SCOPE 

BITX»BITX*BITX 

BITC»BITC*1 

ni S TS i » i ^B II DCni'i>iOITMi t i'OnCAK CONTROL/ ' . kB IT C 



•.BREAK CONTROL REGISTER DATA TEST 
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SEQ 60 



SET BIT 5 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 5 UAS SET 
CLEAR BIT 5 

VERIFY THAT BIT 5 WAS CLEARED 



007072 

007072 012767 000340 170676 

007100 012767 004000 010750 

007106 012767 007160 010736 



TS \XN,4000.2$ 
T64: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 





000065 


XN>XN*1 




007114 


012777 


004000 010666 


MOV 


007122 


016703 


010676 


MOV 


007126 


012705 


000040 


MOV 


007132 


010513 




MOV 


007134 


011304 




MOV 






.IIF NB 


<>. 
CMP 


00 •^136 


020504 




007140 


001401 




BEQ 



TER ERROR 

0C7142 
TER ERROR 

007142 

TER ERROR 

007144 
007146 

007150 
007152 
007154 

TER ERROR 

007156 
TER ERROR 

007156 

TER ERROR 

007160 



007162 



007162 
007162 
007170 
007176 



007204 
007212 
007216 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



104400 

000100 
000006 



012767 
012767 
012767 



000066 
012777 
016703 
012705 



000340 
004000 
007250 



004000 
010606 
000100 



170606 
010660 
010646 



010576 



.IIF IDN 
.IIF IDN 

I 

.IIF IDN 
1»: 



EMT 



BIC 
MOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF ION 



EMT 



«340.PS 
«4000,ICOUNT 
*2<, ESCAPE 

♦.FREEZl 



«BIT11.SDHSCR 

DHBCR.R3 

*40.R5 

R5.(R3) 

(R3}.R4 

BIC «.R4 

R5.R4 

1$ 

<OHBCR>,<DHLPR>, 
<DHBCR>,<OHBCR>, 



<OHBCR>.<OHSSR>, 

R5.(R3) 

(R3),R4 

BIC «.R4 

R4 

21 

R5 

<DHBCR>.<OHLPR>. 
<DHBCR>,<OHBCR>. 



<DHBCR>,<OHSSR>. 



:DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 5 UILL BE SET IN BREAK CONTROL 
SET BIT 5 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 5 SET 



HLT 
HLT 

HLT 



2 
3 



:BREAK 
: BREAK 



CONTROL REGIS 
CONTROL REGIS 



{BREAK CONTROL REGIS 



CLEAR BIT 5 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 5 CLEARED 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



2» : SCOPE 

BITX-BITX*BITX 

BITC-BITCtl 

REGTS6 t/DHBCR/.\8ITX.t /BREAK CONTROL/ , \BITC 



BREAK CONTROL REGISTER DATA TEST 
SET BIT 6 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 6 UAS SET 
CLEAR BIT 6 

VERIFY THAT BIT 6 UAS CLEARED 



TS \XN,4000,2$ 
T65: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 



#340. PS 
MOOO.ICOUNT 
«2t, ESCAPE 

«. FREEZl 



«BIT11.8DHSCR 

DHBCR.R3 

♦100.R5 



s DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

SET UP POINTER TO BREAK CONTROL 

BIT 6 WILL BE SET IN BREAK CONTROL 
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SEQ 61 



007222 010513 
007224 011304 

007226 020504 
007230 001401 

TER ERROR 

007232 
TER ERROR 

007232 104003 



TER ERROR 

007234 
007236 

007240 
007242 
007244 

TER ERROR 

007246 
TER ERROR 

007246 

TER ERROR 

007250 



007252 



007252 
007252 
007260 
007266 



007274 
007302 
007306 
007312 
007314 

007316 
007320 

TER ERROR 

007322 
TER ERROR 

007322 

TER E^ROR 

007324 
007326 

007330 
002332. 



040513 
011304 

005704 
001402 
005005 



104003 



104400 
000200 
000007 



012767 
012767 
012767 



000067 
012777 
016703 
012705 
010513 
011304 

020504 
001401 



104003 



040513 
011304 

005704 



000340 
004000 
007340 



004000 
010516 
000200 



170516 
010570 
010556 



010506 



MOV 
MOV 

.IIF NB <>. 

CMP 
BFQ 

.IIF ION 



.IIF ION 



.IIF ION 



EMT 



1) 



SIC 
MOV 

IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF ION 



EMT 



R5.CR3) 

(R3).R4 

BIG #,R4 

R5.R4 

1$ 

<0HBCR>.<DHLPR>. 
<DHBCR>,<DHbCR>, 



<0HBCR>,<0HSSR>. 

R5.CR3) 

(R3).R4 

BIC «.R4 

R4 

2$ 

R5 

<DHBCR>.<OHLPR>, 
<OHBCR>.<OHBCR>, 



<OHBCR>.<OHSSR>. 



SET BIT 6 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 6 SET 



HLT 
HLT 

HLT 



:BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 



:BREAK CONTROL REGIS 



CLEAR BIT 6 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 6 CLEARED 



HLT 
HLT 

HLT 



2 
3 



.•BREAK CONTROL REG;S 
:BREAK CONTROL REGIS 

;6REAK CONTROL REGIS 



2» : SCOPE 

BITX-BITX*BITX 

BITC-BITC*! 

REGTS6 t/OHBCR/.\BITX.t /BREAK CONTROL/. \BITC 

! BREAK CONTROL REGISTER DATA TEST 
J SET BIT 7 IN BREAK CONTROL TO 1 
.•VERIFY THAT BIT 7 UAS SET 
(CLEAR BIT 7 

i VERIFY THAT BIT 7 UAS CLEARED 



TS \XN.4000.2t 
T66: HOV 
HOV 
HOV 
.IF NB <> 
NOV 

.EHDC 
XN*XN»1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF IDN 
It I 



EMT 



BIC 
MOV 
IIF NB o, 
TST 



*340.PS 
MOOO.ICOUNT 
•2». ESCAPE 

«.FREEZ1 



WIT11.80HSCR 

DWCR.R3 

♦200, R5 

RS.(R3) 

(RS}.R4 

BTC *.R4 

RS.R4 

i* 

<OHBCR>,<OHLPR>, 
<OHBCR>,<DHBCR>. 



<DHBCR>.<OHSSR>, 



R5.(R5) 
(RS).R4 
BIC «.R4 
R4 
-e4- 



iOISABLE ALL INTERRUPTS 
jSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 7 WILL BE SET IN BREAK CONTROL 
J SET BIT 7 

:GET CONTENTS OF BREAK CONTROL 
iCLEAR UfWANTEO BITS 
J UAS BIT 7 SET 



HLT 
HLT 

HLT 



2 
3 



jBREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

: BREAK CmTROL REGIS 



J CLEAR BIT 7 

(READ CONTENTS OF BREAK CONTROL 

(CLEAR UNUANTEO BITS 

(UAS BIT 7 CLEARED 



007334 005005 



CLR R5 
.IIF IDN <DHBCR>.<DHLPR>. 



HLT 



(BREAK CW4TR0L REGIS 
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SEQ 62 



007336 
TER ERROR 

007336 104003 

TER ERROR 

007340 104400 
000400 
000010 

007342 



.Iir ION 



007342 

007342 012767 

007350 012767 

007356 012767 



007364 
007372 
007376 
007402 
007404 

007406 
007410 

TER ERROR 

007412 
TER ERROR 

007412 

TER ERROR 

007414 
007416 

007420 
007422 
007424 

TER ERROR 

007426 
TER ERROR 

007426 

TER ERROR 

007430 



007432 



000070 
012777 
016703 
012705 
010513 
011304 

020504 
001401 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



104400 
001000 
000011 



000340 
004000 
007430 



004000 
010426 
000400 



170426 
010500 
010466 



010416 



EMT 



.IIF IDN 



<DHBCR>.<OHBCR>, 



<OHBCR>,<OHSSR>, 



HLT 



HLT 



: BREAK CONTROL REGIS 
i BREAK CONTROL REGIS 



2» : SCOPE 

BITX«BITX*BITX 

BITC-BITC*! 

REGTS6 t/OHBCR/.\BITX,t/BREAK CONTROL/, \BITC 

iBREAK CONTROL REGISTER DATA TEST 
iSET BIT 10 IN BREAK CONTROL TO 1 
: VERIFY THAT BIT 10 WAS SET 
i CLEAR BIT 10 

{VERIFY THAT BIT 10 WAS CLEARED 



TS \XN.4000.2$ 
T67: MOV 
HOV 
HOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 



.IIF IDN 

I 

,IIF IDN 
1«: 



EMT 



BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 



EMT 



,IIF IDN 



•340. PS 
MOOO.ICOUNT 
•2 I, ESCAPE 

♦.FREEZl 



«8IT11.80HSCR 

DHBCR.R3 

MOO.RS 

R5.(«3) 

(R3}.R4 

BIC *.R4 

R5.R4 

1» 

<OHBCR>,<DHLPR>. 
<0HBCR>.<0H8CR>. 



<OHBCR>.<DHSSR>. 

R5.(R3) 

(R3}.R4 

BIC •.R4 

R4 

2» 

R5 

<OHBCR>.<OHLPR>. 
<DHBCR>.<OHeCR>. 



<DHBCR>,<OHSSR>, 



{DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

5 SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO BREAK CONTROL 
BIT 10 WILL BE SET IN BREAK CONTROL 
iSET BIT 10 

:GET CONTENTS OF BREAK CCMTROL 
.•CLEAR UMJANTED BITS 
:UAS BIT 10 SET 



HLT 
HLT 

HLT 



2 
3 



jBREAK CONTROL REGIS 
iBREAK CONTROL REGIS 

iBREAK CONTROL REGIS 



;CLEAR BIT 10 

-.READ CONTENTS OF BREAK CONTROL 
: CLEAR UNWANTED BITS 
iUAS BIT 10 CLEARED 



HLT 
HLT 

HLT 



2 
3 



.•BREAK CONTROL REGIS 
:BREAK CWTROL REGIS 

.C«»FAK CONTROL REGIS 



21 : SCOPE 

BITX-BITX*BITX 

BITC-BITC*! 

REGTS6 t/0H8CR/,\BITX.t/BREAK CONTROL/. \BITC 

iBREAK CONTROL REGISTER DATA TEST 
■SET BIT 11 IN BREAK CONTROL TO 1 
i VERIFY THAT BIT 11 UAS SET 
jCLEAR BIT 11 

J VERIFY THAT BIT 11 UAS CLEARED 



007432 012767 000340 170336 T70: 



T a ) i ¥M ,< M «i a < 



MOV 



•340. PS 



•DISABLE ALL INTERRUPTS 
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SEQ 63 





f>1 

ro f 


ciciAnnci 


n 1 0A 1 0 

UX V"* 




riu » 






007SPO 


VX V V r o 




MfiV 










TF NR 














riu¥ 






















Al^ • All* X 






01 P777 


wtwv 


ux v^cv 




MOV 


007462 


016703 


010336 






hOV 


007466 


012705 


001000 






MOV 


007472 


010513 








MOV 


007474 


011304 








MOV 










.IIP NB 


<>. 


007476 


020504 








CMP 


007500 


001401 








BEQ 



TER ERROR 

007502 
TER ERROR 

007502 104003 



TER ERROR 

007504 
007506 

007510 
007512 
007514 

TER ERROR 

007516 
TER ERROR 

007516 

TER ERROR 

007520 



007522 



040513 
011304 

005704 
001402 
005005 



104003 



104400 
002000 
(00012 



.IIF ION 
.IIF ION 

.IIF ION 
1): 



EMT 



BIC 
HOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF ION 



EMT 



#4000.IC0UNT 
*2 I. ESCAPE 

*.FREEZ1 



0BIT11.80HSCR 

0HBCR,R3 

«1000.R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

It 

<OHBCR>.<DHlPR>. 
<OHBCR>.vOHBCR>. 



<OHBCR>.<OHSSR>. 

R5.(R3) 

(R3).R4 

BIC «,R4 

R4 

2) 

R5 

<OHBCR>.<OHLPR>. 
<OHBCR>.<DHBCR>. 



<DHBCR>.<OHSSR>. 



sSET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



;MASTER CLEAR INTERFACE 

sSET UP POINTER TO BREAK CONTROL 

iBIT 11 WILL BE SET IN BREAK CONTROL 
SET BIT 11 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
sUAS BIT 11 SET 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
i BREAK CONTROL REGIS 



:BREAK CONTROL REGIS 



(CLEAR BIT 11 

;REAO CONTENTS Or BREAK CONTROL 
sCLEAR UNWANTED BITS 
:UAS BIT 11 CLEARED 



HLT 
HLT 

HLT 



2 
3 



iBREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



2$: SCOPE 

BITX-BITX*BITX 

BITC-BITC*! 

REGT56 t/OHBCR/.VBITX.t/^REAK CONTROL/. \BITC 

: BREAK CONTROL REGISTER DATA TEST 
:SET BIT 12 IN BREAK CONTRtt. TO 1 
s VERIFY THAT BIT 12 WAS SET 
> CLEAR BIT 12 

{VERIFY THAT BIT 12 UAS CLEARED 



007522 








TS \XN.4000.2$ 






007522 


012767 


000340 


170246 


T71: MOV 


♦340. PS 


(DISABLE ALL INTERRUPTS 


007530 


012767 


004000 


010320 


MOV 


♦4000.IC0UNT 


(SET UP FOR 4000 ITERATIONS 


007536 


012767 


007610 


010306 


MOV 


»2$. ESCAPE 


(SET UP TO ESCAPE TO NEXT TEST 










.IF NB <> 














MOV 


*,FREEZ1 


(SET UP TO LOOP WITH DATA { 3 










.ENOC 








000072 






XN-XN*1 






007544 


012777 


004000 


010236 


MOV 


«BIT11,80HSCR 


(MASTER CLEAR INTERFACE 


007552 


016703 


010246 




MOV 


0H8CR.R3 


(SET UP POINTER TO BREAK CONTROL 


007556 


012705 


002000 




MOV 


♦2000.R5 


(BIT 12 HILL BE SET IN BREAK CONTROL 


007562 


010513 






MOV 


R5.(R3) 


(SET BIT 12 


007564 


011304 






MOV 


(R3),R4 


(GET CONTENTS OF BREAK CONTROL 










.IIF NB <>, 


BIC *.R4 


(CLEAR UNWANTED BITS 


007566 


020504 






CMP 


R5.R4 


(WAS BIT 12 SET 


007570 


001401 






BEQ 


It 












.IIF ION 


<DHBCR>.<OHLPR>, 


HLT 2 (BREAK CONTROL 



i- TER ERROR 



■Iir I B M 



■ P I BCn i . iDI I DCR ' . 



-Her 



REGIS 
iBKLAR lUNIHUL HLlil!> 



TER ERROR 
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SEQ 64 



007572 104003 

TER ERROR 

007S74 040513 
007576 011304 

007600 005704 
007602 001402 
007604 005005 

TER ERROR 

007606 
TER ERROR 

007606 104003 

TER ERROR 

007610 104400 
004000 
000013 

007612 



EMT 

.IIF IDN 

1»: BIC 
MOV 

.IIF NB <>, 
TST 
BEQ 
CLR 

.IIF IDN 



.IIF ION 



.IIF IDN 



EMT 



<DHBCR>.<DHSSR>, 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2$ 

R5 

<DHBCR>.<DHLPR>, 
<DHBCR>.<DHeCR>, 



<DHBCR>.<DHSSR>. 



HLT 4 
'CLEAR BIT 12 

!rEAD CONTENTS OF BREAK CONTROL 
i CLEAR UNWANTED BITS 
iUAS BIT 12 CLEARED 



; BREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2»: SCOPE 

BITX-BITX+BITX 

BITC-BITC+1 

REGTS6 t/OHBCR/.\BITX.t/BREAK CONTROL/. \BITC 

{BREAK CONTROL REGISTER DATA TEST 
:SET BIT 13 IN BREAK CONTROL TO 1 
! VERIFY Th*^T BIT 13 HAS SET 
J CLEAR BIT 1. 

{VERIFY THAT BIT 13 UAS CLEARED 



2 
3 



{BREAK CONTROL REGIS 
•BREAK CONTROL REGIS 

{BREAK CONTROL REGIS 



007612 

007612 012767 

007620 012767 

007626 012767 



007634 
007642 
007646 
007652 
007654 

007656 
007660 

TER ERROR 

007662 
TER ERROR 

007662 

TER ERROR 

007664 
007666 

007670 
007672 
007674 

TER ERRf ^ 

007676 
TER ERROR 

007676 

TER ERROR 

nn77nn 



000073 
012777 
016703 
012705 
010513 
011304 

020504 
001401 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



000340 
004000 
007700 



004000 
010156 
004000 



170156 
010230 
010216 



010146 



TS \XN.4000,2* 
T72: MCV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN«XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

,IIF NB <>, 
CMP 
BEQ 

.IIF IDN 



.IIF IDN 



EMT 



.IIF ION 



It 



BIC 
MOV 

IIF NB <>, 
TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF IDN 



EMT 



«340.PS 
♦4000.ICOUNT 
«2». ESCAPE 

♦.FREEZl 



«BIT11.S0HSCR 

DHBCR.R3 

«4000,R5 

R5.(R3) 

(R3).R4 

BIC *,R4 

R5.R4 

It 

<DHeCR>,<DHLPR>. 
<DHBCR>,<DH6CR>. 



<DHBCR>,<DHSSR>, 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2t 

R5 

<DH6CR>,<0HLPR>, 
<DHBCR>.<DHeCR>. 



<0H8CR>,<DHSSR>. 



OlOCOO 



6 6 0PE 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 4000 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 

{SET UP POINTER TO BREAK CONTROL 

{BIT 13 UILL BE SET IN BREAK CONTROL 
{SET BIT 13 

{G>:T CONTENTS OF BREAK CONTROL 
{CLEAR UhMANTED BITS 
{UAS BIT 13 SET 



HLT 
HLT 

HLT 



{BREAK CONTROL REGIS 
{BREAK CONTROL REGIS 

{BREAK CONTROL REGIS 



CLEAR BIT 13 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
{UAS BIT 13 CLEARED 



HLT 
HLT 

HLT 



2 
3 



{BREAK CONTROL REGIS 
{BREAK CONTROL REGIS 

{BREAK CONTROL REGIS 



BITX-BITX+BITX 
RTTr«RTTP*1 
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SEQ 65 



007702 

007702 012767 000340 170066 

007710 012767 004000 010140 

007716 012767 007770 010126 



000074 

007724 012777 004000 010056 
007732 016703 010066 
007736 012705 010000 
007742 010513 



007744 011304 

007746 020504 
007750 001401 

TER ERROR 

007752 
TER ERROR 

007752 104003 



TER ERROR 

007754 
007756 

007760 
007762 
007764 

TER ERROR 

007766 
TER ERROR 

007766 

TER ERROR 

007770 



007772 



040513 
011304 

005704 
001402 
005005 



104003 



104400 

02000C 
000015 



007772 

007772 012/67 000340 167776 

010000 012767 004000 010050 

010006 012767 010060 010036 



000075 

010014 012777 004000 007766 



;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 14 IN BREAK CONTROL TO 1 
; VERIFY THAT BIT 14 WAS SET 
; CLEAR BIT 14 

s VERIFY THAT BIT 14 MAS CLEARED 



TS \XN.4000,2» 
T73: MOV 
MOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIP NB <>. 

CMP 
BEQ 

.IIF IDN 



.IIF IDN 



EMT 

.IIF IDN 

1): BIC 
MOV 

.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 



.IIF IDN 



EMT 



•340. PS 
#4000.IC0UNT 
#2 I. ESCAPE 

«.FREE21 



«6IT11.SDHSCR 

0HBCR.R3 

#10000. R5 

R5,(R3) 

(R3},R4 

BIC «.R4 

R5.R4 

II 

<DH6CR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 



<DHDCR>.<DHSSR>. 

R5.CR3) 

(R3).R4 

BIC «.R4 

R4 

2$ 

R5 

<OHBCR>.<0HLPfi>. 
<OHBCIt».<OHBCR>. 



<0HBCR>.<DHSSR>. 



;DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



sMASTER CLEAR INTERFACE 

sSET UP POINTER TO BREAK CONTROL 

:BIT 14 WILL BE SET IN BREAK CONTROL 
jSET BIT 14 

J GET CONTENTS OF BREAK CONTROL 
: CLEAR UNWANTED BITS 
(WAS BIT 14 SET 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 



iBREAK CONTROL REGIS 



i CLEAR BIT 14 

:REAO CONTENTS OF BREAK CONTROL 
iCLEAR UNWANTED BITS 
sUAS BIT 14 aEAREO 



HLT 
HLT 

HLT 



2 
3 



iBREAK CONTROL REGIS 
iBREAK CONTROL REGIS 

iBREAK CONTROL REGIS 



2*: SCOPE 

BITX-BITX*BITX 

BITC-BITC*! 

REGTS6 t/OHBCR/ABITX.t/BIKAK CONTROL/. \BITC 

(BREAK CONTROL REGISTER DATA TEST 
(SET BIT 15 IN BREAK CONTROL TO 1 
J VERIFY THAT BIT 15 WAS SET 
i CLEAR BIT IS 

(VERIFY THAT BIT 15 WAS CLEARED 



TS \XN,4000.2I 
T74: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN»1 

MOV 



♦340. PS 
♦4000.IC0UNT 
«2 I. ESCAPE 

♦.FREEZl 
4BIT11.0DHSCR 



t DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 
(MASTER CLEAR INTERFACE 
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SEQ 66 



010022 016''05 007776 

010026 01:7ns 020000 

0100S2 OiOSlJ 

010034 011304 

010036 020504 

010040 001401 



TEA ERROR 

010042 
TER ERROR 

010042 

TER ERROR 

010044 
010046 

OlOOSO 
010052 
010054 

TER ERROR 

010056 
TER ERROR 

010056 



HOV 
MOV 
MOV 
MOV 

.IIF NB 0. 

CMP 
BEQ 

.llf ION 



TER ERROR 

010132 
TER ERROR 

010132 

TER ERROR 

010134 
010136 



104003 



040513 
011304 

005704 
001402 
005005 



104003 



.IIF IDN 

I 

.IIF ION 
1$: 



EMT 



BIC 
MOV 
.IIF NB <>. 

TST 
BEQ 
CLR 

.IIF ION 



.IIF ION 



EMT 



TER ERROR 

010060 104400 
040000 
000016 

010062 



.IIF IDN 



DHBCR.R3 

♦20000. R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

1) 

<DHBCR>.<DHLPR>. 
<0HBCR>.<DH8CR>. 



<DHBCR>.<0HSSR>, 

R5.CR3) 

(R3).R4 

BIC «.R4 

R4 

2) 

R5 

«DHBCR>.<DHLPR>, 
<DHBCR>.<DHBCR>. 



<DHBCR>.<DHSSR>. 



tSET UP POINTER TO BREAK CONTROL 

;BIT 15 WILL BE SET IN BREAK CONTROL 
SET BIT 15 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 15 SET 



HLT 
HLT 

HLT 



2 
3 



; BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

sBREAK CONTRX REGIS 



CLEAR BIT 15 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 15 CLEARED 



HLT 
HLT 

HLT 



2 
3 



.BREAK CONTROL REG.S 
:BREAK CONTROL REGIS 

iBREAK CONTROL REGIS 



2»: SCOPE 

BITX«BITX»BITX 

BITC'BITC»1 

REGTS6 t/DHBCR/.VBITX.t /BREAK CONTROL/. \BITC 



BREAK CONTROL REGISTER DATA TEST 
SET BIT 16 IN BREAK CONTROL TO 1 
VERIFY THAT BIT 16 WAS SET 
CLEAR BIT 16 

VERIFY THAT BIT 16 WAS CLEARED 



010062 








TS \XN. 4000.2$ 






010062 


012767 


000340 


167706 


T75: MOV 


»340,PS 


:DISABLE ALL INTERRUPTS 


010070 


012767 


004000 


007760 


MOV 


«4000.IC0UNT 


;SET UP FOR 4000 ITERATIONS 


010076 


012767 


0'0150 


007746 


MOV 


♦2 ». ESC APE 


sSET UP TO ESCAPE TO NEXT TEST 










.IF NB <> 














MOV 


♦.FREEZl 


:SET UP TO LOOP WITH DATA j 










.ENOC 








000076 






XN-XN*1 






010104 


012777 


004000 


007676 


MOV 


•8IT11.80HSCR 


s MASTER CLEAR INTERFACE 


010112 


016703 


007706 




MOV 


0HBCR.R3 


sSET UP POINTER TO BREAK CONTROL 


010116 


012705 


040000 




MOV 


♦40000.R5 


.-BIT 16 WILL 8E SET IN BREAK 


010122 


010513 






MOV 


R5.(R3) 


:SET BIT 16 


010124 


011304 






MOV 


(R3).R4 


iGET CONTENTS OF BREAK CONTROL 






.IIF NB <>, 


BIC «.R4 


: CLEAR UNWANTED BITS 


010126 


020504 






CMP 


R5.R4 


sWAS BIT 16 SET 


010130 


001401 






BEQ 


U 


HLT 2 jBRE 










.IIF IDN 


<DHBCR>,<DHLPR>. 



104003 



040513 
011304 



.IIF ION 

I 

.IIF IDN 

It! 



EMT 



,iw m 



BIC 
MOV 



010140 
010142 



005704 
001402 



TST 
BEQ 



<OHBCR>,<OHBCR>. 



<DH6CR>.''DHSSR>. 

R5,(R3) 
(R3).R4 

QIC 9 .M 



HLT 3 

HLT 4 

i CLEAR BIT 16 

:READ CONTENTS OF BREAK CONTROL 



: BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 



R4 

2) 



■t CL g AR U M UAH T CO Bl Tr 
iUAS BIT 16 CLEARED 
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SEQ 67 



010144 0C5005 



TER ERROR 

010146 
TER ERROR 

010146 

TER ERROR 

010150 



010152 



104003 



104400 

100000 
000017 



010152 

010152 012767 

010160 012767 

010166 012767 



010174 
010202 
010206 
010212 
010214 

010216 
010220 

TER ERROR 

010222 
TER ERROR 

010222 

TER ERROR 

010224 
010226 

010230 
010232 
010234 

TER ERROR 

010236 
TER ERROR 

010236 

TER ERROR 

010240 



231 
282 
283 
284 
286 



000077 
012777 
016703 
012705 
010513 
011304 

020504 
001401 



104003 



04051S 
011304 

005704 
001402 
005005 



104003 



104400 
000000 
000020 
000000 
000020 
000001 
000000 
000007 



000340 
004000 
010240 



004000 
007616 
100000 



167616 
007670 
00T656 



007606 



,Iir ION 
.IIF ION 

E 

.IV ION 



CLR 



EMT 



R5 

<DHBCR>.<OHLPR>. 
<DHBCR>.<DHBCR>. 



<DHBCR>.<OHSSR>. 



HLT 
HLT 

HLT 



2 
3 



.•BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 

s BREAK CONTROL REGIS 



2» : SCOPE 

BITX-BITX.BITX 

BITC-BITCU 

REGTS6 t/DHBCR/'.sBITX.t /BREAK CONTROL/. \BITC 

sBREAK CONTROL REGISTER DATA TEST 
:SET BIT 17 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 17 UAS SET 
:CLEAR BIT 17 

sVERIFY THAT BIT 17 UAS CLEARED 



TS SXN.4000.2I 
T76: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <>, 
CMP 
BEC 

.IIF ION 



.IIF ION 



.IIF ION 



EMT 



It 



BIC 
MOV 
IIF NB <>. 

TST 
BEQ 
CLR 

IIF ION 



.IIF ION 



.IIF ION 



EMT 



♦340. PS 
♦4000.IC0UNT 
♦2 I. ESCAPE 

«.FREEZ1 



«BIT11.8DHSCR 

0HBCR.R3 

♦100000. R5 

R5.(R3) 

(R3).R4 

BIC «.R4 

R5.R4 

II 

<OHBCR>.<DHLPR>, 
<DHBCR>.<DHBCR>. 



<DHBCR>,<DHSSR>. 

R5.(R3) 

(R3).R4 

BIC «.R4 

R4 

2$ 

R5 

'■DHBCR>.<DHLPR>. 
<DHBCR>.<DH8CR>. 



<DHBCR>.<DHSSR>. 



sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP UITH DATA 



: MASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 

;BIT 17 WILL BE SET IN BREAK CONTROL 
.•SET BIT 17 

;GET CONTENTS OF BREAK CONTROL 
: CLEAR UNWANTED BITS 
-.WAS BIT l"* SET 



HLT 
HLT 

HLT 



2 
3 



sBREAK CONTROL REGIS 
;BREAK CONTROL REGIS 

sBPEAK CONTROL REGIS 



CLEAR BIT 17 

READ CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 17 CLEARED 



HLT 
HLT 

HLT 



2 
3 



:BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



288 
289 



2$: SCOPE 

BITX»BITX»BITX 

BITC-BITC*1 

XBIT«BITX 

CBIT'BITC 

BITX-1 

BITC»0 

.REPT 7 

nE C TCG */O II GOn i 'i>iDIT)(, l i'DILO DTATUflJ ' . kBl T C . TOO 

.IF EQ BITX 40 

.NLIST 
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SEQ 68 



?90 
291 
292 
293 
294 
295 
296 
297 
296 
299 



010242 



010242 

010242 012767 

010250 012767 

010256 012767 



010264 
010272 
010276 
010302 
010304 
010306 
010312 
010314 



R ERROR 
R ERROR 
R ERROR 



010316 

010316 
010320 
010322 
010324 
010330 
010332 
010334 



R ERROR 
R ERROR 
R ERROR 



010336 

010336 
010340 



000100 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 



104004 
040513 
011304 
042704 
005704 
001402 
00S005 



104004 
104400 



000340 167526 
004000 007600 
010340 007566 



004000 007516 

007530 

000001 



000700 



000700 



BITX- 100000 
BITC- ■» 
.LIST 
.IFF 
.NLIST 

BITX>BITX*BITX 
BITC-BITC»1 
.LIST 
.ENOC 
.ENOR 
REGTS6 



t/OHSSR/ . \BITX . t /SILO STATUS/ , SBITC . 700 

SILO STATUS REGISTER DATA TEST 
SET BIT 0 IN SILO STATUS TO 1 
VERIFY THAT BIT 0 UAS SET 
CLEAR BIT 0 

I VERIFY THAT BIT 0 UAS CLEARED 



000002 
000001 



TS \XN.4000,2$ 

T77! nov 
nov 
nov 

.IF NB <> 

nov 

.ENOC 
XN«XN*1 

nov 

MOV 
MOV 

nov 
nov 

.IIF NB <700>, 
CMP 
BEQ 

.IIF ION 
.IIF ION 
.IIF ION 

EMT 

1*: BIC 
MOV 

.IIF NB <700>, 
TST 
BEQ 
CLR 

.IIF IDN 
.IIF IDN 
.IIF IDN 

EMT 

2) : SCOPE 

.IF EQ BITX-40 

.NLIST 

BITX-100000 

BITC-17 

.LIST 

.IFF 

BITX-BITX*BITX 
BITC-BITC*! 



«340.PS 
MOOO.ICOUNT 
♦2 ». ESCAPE 

♦.FREEZl 



«eiT11.8DHSCR 

DHSSR.R3 

#1.R5 

R5.CR3) 

(R3).R4 

BIC «700.R4 

R5.R4 

U 

<DHSSR>.<DHLPR>, 
<DHSSR>,<DHBCR>. 
<DHSSR>.<DHSSR>. 
4 

R5.(R3) 
(R3).R4 

BIC «700.R4 

R4 

2) 

R5 

<0HSSR>,<0HLPR>, 
<DHSSR>.<DHBCR>. 
<DHSSR>.<DHSSR>, 
4 



{DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO SILO STATUS 
BIT 0 WILL BE SET IN SILO STATUS 
SET BIT 0 

GET CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
UAS BIT 0 SET 



HLT 
HLT 
HLT 



2 
3 
4 



:SIL0 
iSILO 
:SILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 



CLEAR BIT 0 

READ CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
UAS BIT 0 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



iSILO 
.SILO 
:SILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 
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SEQ 69 



010342 



.ENOC 
REGTS6 



010342 

010342 012767 000340 

010350 012767 004000 

010356 012767 010440 



010364 
010372 
010376 
010402 
010404 
010406 
010412 
010414 



R ERROR 
R ERROR 
R ERROR 



010416 

010416 
010420 
010422 
010424 
010430 
010432 
010434 



R ERROR 
R ERROR 
R ERROR 



010436 

010436 
010440 



010442 



000101 

012777 004000 
016703 007430 
012705 000002 
010513 
011304 

042704 000700 

020504 

001401 



167426 
007500 
007466 



007416 



104004 
040513 
011304 

042704 000700 
005704 
001402 
005005 



104004 
104400 



000004 
000002 



t/OHSSR/ , \BITX , t /SILO STATUS/ . \BITC , 700 

SILO STATUS REGISTER DATA TEST 
SET BIT 1 IN SILO STATUS TO 1 
VERIFY THAT BIT 1 WAS SET 
CLEAR BIT 1 

VERIFY THAT BIT 1 WAS CLEARED 



HLT 
HLl 
HLT 



TS \XN,4000.2$ 
TlOO: MOV 

nov 
nov 

.IF NB <> 

nov 

.ENOC 
XN-XN*1 

nov 
nov 
nov 
nov 
nov 

.IIF NB <700>. 

cnp 

BEQ 

.IIF IDN 
.IIF ION 
.IIF ION 

EMT 

1»: BIC 
MOV 

•IIF NB <700>. 
TST 
BEQ 
CLR 

.IIF IDN 
.IIF IDN 
•IIF IDN 

EMT 

2> : SCOPE 

.IF EQ BITX-40 

.NLIST 

BITX>100000 

BITC-17 

.LIST 

.IFF 

BITX-BITX*BITX 

BITC-BITC*! 

.ENOC 

RE6TS6 t/DHSSR/,\BITX.t/SlLO STATUS/. \BITC, 700 

;SILO STATUS REGISTER DATA TEST 
;SET BIT 2 IN SILO STATUS TO 1 
{VERIFY THAT BIT 2 UAS SET 
: CLEAR BIT 2 

: VERIFY THAT BIT 2 UAS CLEARED 



«340.PS 
«4000.ICOUNT 
«2 1, ESC APE 

«.FREEZ1 



46IT11.90HSCR 

0HSSR.R3 

«2,R5 

R5.CR3) 

CR3).R4 

BIC «700.R4 

R5.R4 

II 

<OHSSR>.<OHLPR>. 
<OHSSR>.<DHBCR>, 
<OHSSR>.<OHSSR>. 
4 

R5.(R3) 
(R3).R4 

BIC *700.R4 

R4 

2t 

R5 

<OHSSR>.<DHLPR>. 
<0HSSR>.<DH6CR>, 
<DHSSR>.<DHSSR>, 
4 



: DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
;SET UP POINTER TO SILO STATUS 
jBIT 1 WILL BE SET IN SILO STATUS 
J SET BIT 1 

GET CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
WAS BIT 1 SET 



2 
3 
4 



iSILO 
:SILO 
:SILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 



CLEAR BIT 1 

READ CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
UAS BIT 1 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



sSILO 
sSILO 
iSILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 
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SEQ 70 



010442 

010442 012767 000340 167326 

0104S0 012767 004000 007400 

010456 012767 010540 007366 



TS \XN,4000.2* 
TlOl: MOV 
MOV 
MOV 







• IF NB 


<> 
MOV 






.ENOC 






000102 


XN<XN»1 




010464 


012777 


004000 007316 


MOV 


010472 


016703 


007330 


MOV 


010476 


012705 


000004 


MOV 


010502 


010513 




MOV 


010504 


011304 




MOV 


010506 


042704 


000700 .IIF NB 


<700>, 


010512 


020504 




CMP 


010514 


001401 




BEQ 



R ERROR 
R ERROR 
R ERROR 



010516 

010516 104004 

010520 040513 

010522 011304 

010524 042704 000700 

010530 005704 

010532 001402 

010534 005005 



R ERROR 
R ERROR 
R ERROR 



010536 

010536 104004 
010540 104400 



000010 
000003 



010542 



010542 

010542 012767 000340 167226 

010550 012767 004000 007300 

010556 012767 010640 007266 



000103 

010564 012777 004000 007216 



«340,PS 
«4000,IC0UNT 
«2*. ESCAPE 

♦.FREEZl 



«BIT11,80HSCR 

0HSSR.R3 

«4.R5 

R5.CR3} 

(R3}.R4 

BIC «700,R4 

R5.R4 

1$ 

<0HSSR>,<0HLPR>. 
<OHSSR>.<OHBCR>. 
<OHSSR>,<OHSSR>, 
4 

R5.(R3) 
(R3).R4 

BIC #700. R4 
R4 
21 
R5 

<DHSSR>.<DHLPR>. 
<DHSSR>.<DHBCR>. 
<OHSSR>.<OHSSR>. 
4 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



i MASTER CLEAR INTERFACE 
;SET UP POINTER TO SILO STATUS 
;BIT 2 MILL BE SET IN SILO STATUS 
:SET BIT 2 

jGET CONTENTS OF SILO STATUS 
s CLEAR UNWANTED BITS 
iUAS BIT 2 SET 



HLT 
HLT 
HLT 



HLT 
HLT 
HLT 



.IIF ION 
.IIF ION 
.IIF IDN 

EMT 

1$: BIC 

MOV 

.IIF NB <700>. 
TST 
BEQ 
CLR 

.IIF IDN 
-IIF ION 
.IIF IDN 

EMT 

2* : SCOPE 

.IF EQ BITX-40 

.NLIST 

BITXxlOOOOO 

BITC-17 

.LIST 

-IFF 

BITX»BITX»BITX 

BITC«BITC*1 

.ENOC 

REGTS6 t/DHSSR/.\BITX,t/SILO STATUS/. \BITC. 700 

iSILO STATUS REGISTER DATA TEST 
iSET BIT 3 IN SILO STATUS TO 1 
i VERIFY THAT BIT 3 WAS SET 
: CLEAR BIT 3 

s VERIFY THAT BIT 3 WAS CLEARED 



2 
3 
4 



tSILO 
:SILO 
sSILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 



CLEAR BIT 2 

READ CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
MAS BIT 2 CLEARED 



2 
3 
4 



;SILO 
:SILO 
:SILO 



STATUS REGISTE 
STATUS REGISTE 
STATUS REGISTE 



TS \XN.4000,2$ 
T102: MOV 
MOV 
MOV 
.IF NB <> 
HOV 

.ENDC 
XN-XN*1 

MOV 



♦340, PS 
«4000,IC0UNT 
«2«, ESCAPE 

«. FREEZl 
•BITll.SDHSCR 



t DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

tSET UP TO LOOP UITH DATA 
{MASTER CLEAR INTERFACE 
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SEQ 71 



010572 016703 007230 

010576 012705 000010 

010602 010513 

010604 011304 

010606 042704 000700 

010612 020504 

010614 001401 



R ERROR 
R ERROR 
R ERROR 



010616 

010616 104004 

010620 040513 

010622 011304 

010624 042704 000700 

010630 005704 

010632 001402 

010634 005005 



R ERROR 
R ERROR 
R ERROR 



010636 

010636 104004 
010640 104400 



010642 



010642 
010642 
010650 
010656 



010664 
010672 
010676 
010702 
010704 
010706 
010712 
010714 



R ERROR 



000020 
000004 



012767 
012767 
012767 



000104 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 



000340 167126 
004000 007200 
010740 007166 



004000 007116 

007130 

000020 



000700 



HLT 
HLT 
HLT 



MOV 
MOV 
MOV 
MOV 

.IIF NB <7'j0>, 
CMP 
BEQ 

.IIF ION 
IIF ION 
.IIF ION 

EMT 

1$: BIG 
MOV 

.IIF NB <700>. 
TST 
BEQ 
CLR 

.IIF ION 
.IIF ION 
.IIF ION 

EHT 

2* : SCOPE 

.IF EQ BITX-40 

.NLIST 

BITX-100000 

BITC-17 

.LIST 

• IFF 

BITX-BITX*BITX 

BITC-BITC*! 

.ENDC 

RE6TS6 t/DHSSR/,\BITX,t/SILO STATUS/.\BITC.700 

;SILO STATUS REGISTErt DATA TEST 
sSET BIT 4 IN SILO STATUS TO 1 
{VERIFY THAT BIT 4 WAS SET 
; CLEAR BIT 4 

{VERIFY THAT BIT 4 WAS CLEARED 



DHSSR.R3 
M0.R5 
R5.(R3) 
(R3),R4 

BIG «700,R4 

R5.R4 

1* 

<OHSSR>,<OHLPR>. 
<OHSSR>.<DHBCR>, 
<DHSSR>,<DHSSR>, 
4 

R5.(R3) 
(R3).R4 

BIC *700,R4 

R4 

2$ 

R5 

<DHSSR>.<OW.PR>. 
<OHSSR>.<DHBCR>. 
<OHSSR>,<OHSSR>. 
4 



J SET UP POINTER TO SILO STATUS 
iSIT 3 WILL BE SET IN SILO STATUS 
;SET BIT 3 

iGET CONTENTS OF SILO STATUS 
i CLEAR UNWANTED BITS 
;WAS BIT 3 SET 



2 
3 
4 



{SILO STATUS REGISTE 
{SILO STATUS REGISTE 
{SILO STATUS REGISTE 



jCLEAR BIT 3 

{READ CONTENTS OF SILO STATUS 
{CLEAR UNWANTED BITS 
(WAS BIT 3 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



{SILO STATUS REGISTE 
{SILO STATUS REGISTE 
{SILO STATUS REGISTE 



TS \XN.4000,2» 
T103: MOV 
MOV 
MOV 
.IF NB <> 

nov 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIF NB <700>. 
CMP 
BEQ 

.IIF ION 



«340,PS 
•4000.IC0UNT 
•2«, ESCAPE 

«,FREEZ1 



«6IT11.80HSCR 

DHSSR.R3 

«20.R5 

R5.(R3) 

(R3}.R4 

BIC «700.R4 

R5.R4 

II 

<0HSSR>,<DHLPR>, 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 4800 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
J SET UP POINTER TO SILO STATUS 
I BIT 4 WILL BE SET IN SILO STATUS 
sSET BIT 4 

(GET CONTENTS OF SILO STATUS 
{CLEAR UNWANTED BITS 
(WAS BIT 4 SET 



■ liF I B M 



l O I IOGR i . iD II OCn i . 



HLT 
-MCT- 



2 



(SILO STATUS REGISTE 



R FRROR 
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SEQ 72 



R ERROft 



010716 

010716 104004 

010720 040513 

010722 011304 

010724 042704 000700 

010730 005704 

010732 001402 

010734 005005 



R FRROR 
R ERROR 
R ERROR 



010736 

010736 104004 
010740 104400 



010742 



010742 
010742 
010750 
010756 



010764 
010772 
010776 
011002 
011004 
011006 
011012 
011014 



R ERROR 
R ERROR 
R ERROR 



011016 

011016 
011020 
CI 1022 
011024 
C'l030 
C .032 
011034 



000040 
000005 



012767 
012767 
012767 



000105 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 



000340 167026 
004000 007100 
011040 007066 



004000 007016 

007030 

000040 



000700 



104004 
040513 
011304 

042704 000700 
005704 
001402 
005005 



<DHSSR>.<DHSSR>, 
4 

R5,(R3) 
(R3).R4 

BIC #700. R4 

R4 

2) 

R5 

<OHSSR>,<DHLPR>, 
<DHSSR>,<OHBCR>, 
<OHSSR>.<DHSSR>. 
4 



HLT 
HLT 
HLT 



.IIF ION 

EMT 

1$: BIC 

MOV 

•IIP NB <700>. 
TST 
BEQ 
CLR 

•IIP ION 
.IIP ION 
.IIP ION 

EMT 

2»: SCOPE 

.IP EQ BITX-40 

.NLIST 

BITX-100000 

BITC«17 

.LIST 

.IPP 

BITX-BITX*BITX 

BITC»BITC*1 

.ENDC 

REGTS6 t/DHSSR/.\BITX.t/SILO STATUS/. \BITC. 700 



SILO STATUS REGISTER DATA TEST 
SET BIT 5 IN SILO STATUS TO 1 
VERIPY THAT BIT 5 WAS SET 
CLEAR BIT 5 

VERIPY THAT BIT 5 WAS CLEARED 



HLT 



CLEAR BIT 4 

READ CONTENTS OF SILO STATUS 
CLEAR UNUANTED BITS 
;UAS BIT 4 CLEARED 



;SILO STATUS REGISTE 



2 
3 
4 



sSILn STATUS REGISTE 
sSILO STATUS REGISTE 
iSILO STATUS REGISTE 



TS \XN,4000,2» 
T104: MOV 

MOV 

MOV 
.IF NB <> 

MOV 

.ENOC 
XN-XN»1 

MOV 
MOV 
MOV 
MOV 
MOV 

.IIP NB <700>, 
CMP 
BEQ 

.IIP ION 
.IIP ION 
.IIP ION 

EMT 

1$: BIC 
MOV 

.IIP NB <700>, 
TST 
BEQ 
CLR 

■IIP i m 



♦340. PS 
«4000,IC(H)NT 
#2 ». ESCAPE 

♦.FREEZl 



«eiTll,90HSCR 

DHSSR.R3 

«40.R5 

R5.CR3) 

(R3}.R4 

BIC *700.R4 

R5.R4 

II 

<OHSSR>,<DHLPR>. 
<DHSSR>.<0HBCR>. 
<DHSSR>.<OHSSR>. 
4 

R5,(R3) 
(R3).R4 

BIC «700.R4 

R4 

21 

R5 

■ D ii con i . < oi i LPn » . 



{DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

•,SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
SET UP POINTER TO SILO STATUS 
BIi 5 UILL BE SET IN SILO STATUS 
SET BIT 5 

GET CONTENTS OF SILO STATUS 
i CLEAR UNUANTED BITS 
iUAS BIT S SET 



HLT 
HLT 
HLT 



2 
3 
4 



sSILO STATUS REGISTE 
iSILO STATUS REGISTE 
:SILO STATUS REGISTE 



> CLEAR BIT 5 

{READ CONTENTS OF SILO STATUS 
I CLEAR UNUANTED BITS 
iUAS BIT 5 CLEARED 



R ERROR 
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SEQ 73 



R ERROR 
R ERROR 



011036 

011036 104004 
011040 104400 

100000 
000017 



011042 



011042 
011042 
011050 
011056 



011064 
011072 
011076 
011102 
011104 
011106 
011112 
011114 



R ERROR 
R ERROR 
R ERROR 



011116 

011116 
011120 
011122 
011124 
011130 
011132 
011134 



R ERROR 
R ERROR 
R ERROR 



011136 

011136 
011140 



012767 
012767 
012767 



000106 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 



000340 
004000 
011140 



004000 
006730 
100000 



000700 



166726 
007000 
006766 



006716 



104004 
040513 
011304 

042704 000700 
005704 
001402 
005005 



104004 
104400 



.IIF ION 
.IIF ION 

EMT 

2»: SCOPE 

.IF EQ BITX-40 

BITX» 100000 

BITC-17 

.IFF 

.NLIST 

BITX-BITX*BITX 
BITC«BITC*1 
.LIST 
.ENOC 
REGTS6 



<DHSSR>.<DHBCR>. 
<DHSSR>.<DHSSR>, 
4 



HLT 
HLT 



sSILO STATUS REGISTE 
iSILO STATUS REGISTE 



t/DHSSR/ . \BITX . t/SILO STATUS/ , \BITC. 700 

SILO STATUS REGISTER DATA TEST 
SET BIT 17 IN SILO STATUS TO 1 
VERIFY THAT BIT 17 WAS SET 
CLEAR BIT 17 

VERIFY THAT BIT 17 WAS CLEARED 



TS \XN,4000.2* 
T105: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 
MOV 

•IIP NB <700>, 
CMP 
BEQ 

.IIF ION 
.IIF ION 
•IIF ION 

EMT 

1»: BIC 
MOV 

.IIF NB <700>. 
TST 
BEQ 
CLR 

.IIF ION 
.IIF ION 
.IIF ION 



2$: 

• IF EQ 
.NLIST 
BITX>100000 
B ITC « 17 



EMT 
SCOPE 
BITX-40 



«340.PS 
#4000.ICOUNT 
*2», ESCAPE 

#.FREEZ1 



«BIT11,8DHSCR 

OHSSR.RS 

«100000,R5 

R5.(R3} 

(R3}.R4 

BIC «700,R4 

RS.R4 

1* 

<OHSSR>.<DHLPR>. 
<OHSSR>.<DHBCR>. 
<DHSSR>.<DHSSR>, 
4 

R5.(R3) 
(R3).R4 

BIC «700.R4 

R4 

2« 

R5 

<DHSSR>.<OHLPR>, 
<0HSSR>.<DH6CR>. 
<OHSSR>.<DHSSR>. 
4 



: DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



: 3 



sMASTER CLEAR INTERFACE 

sSET UP POINTER TO SILO STATUS 

;BIT 17 WILL BE SET IN SILO STATUS 
SET BIT 17 

GET CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
WAS BIT 17 SET 



HLT 
HLT 
HLT 



2 
3 
4 



:SILO STATUS REGISTE 
;SILO STATUS REGISTE 
tSILO STATUS REGISTE 



CLEAR BIT 17 

READ CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
WAS BIT 17 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



iSILO STATUS REGISTE 
J SILO STATUS RERISTE 
iSILO STATUS REGISTE 



.LIST 
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SEQ 74 



301 

302 

303 

304 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 



000000 
000020 

000000 
000020 
000001 
000000 
000017 



011142 



177776 
177766 
177766 



.IFF 

BITX-BITX*BITX 

BITC»BITC»1 

• ENOC 

XBIT-BITX 

CBIT-BITC 

BITX-1 

BITC-0 

.REPT 15. 

.NLIST 

CCRBIT«-BITX-1 
CLRBIT-CCRBIT6177767 
BITCLR-CLRBIT 
.LIST 

REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/. \BITC. 177767. \BITCLR 

.IF EQ BITX-4 

.NLIST 

BITX-BITX*BITX 

BITC-BITC*1 

.LIST 

.ENDC 

.NLIST 

BITX-BITX*BITX 

BITC"BITC*1 

.LIST 

.ENDR 

CCRBIT--BITX-1 

CLRBIT-CCRBIT6177767 

BITCLR-CLRBIT 

REGTS7 t/OHLPR/.\BITX.t/LINE PARAMETER/, \BITC. 177767, \BITCLR 



sLINE PARAMETER REGISTER DATA TEST 

sSET ALL REAO/URITE BITS IN LINE PARAMETER REGISTER TO IS 
s CLEAR BIT 0 

VERIFY THAT BIT 0 WAS CLEARED 

RESTORE BIT 0 

VERIFY THAT BIT 0 WAS SET 



011142 








TS \XN.4000.2I 




011142 


012767 


000340 


166626 


T106: 


MOV 


#340. PS 


011150 


012767 


004000 


006700 




MOV 


♦40O0.IC0UNT 


011156 


012767 


011244 


006666 




MOV 


#2 ». ESCAPE 










.IF NB 


< > 














MOV 


♦.FREEZl 










.ENOC 








000107 






XN-XN*1 






011164 


012777 


004000 


006616 




MOV 


«BI111,90HSCR 


011172 


016703 


006616 






MOV 


OHLPR.RS 


011176 


012705 


177766 






MOV 


♦177766. R5 


011202 


012713 


177767 






MOV 


#177767, (R3) 


011206 


042713 


000001 






SIC 


#1.(R3) 


011212 


011304 








MOV 


(R3).R4 










.IIF NB 


<>. 


BIG *.R4 


011214 


020504 








CMP 


R5.R4 


011216 


001401 








BEQ 


1) 



:OISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
5 SET UP TO ESCAPE TO NEXT TEST 

tSET UP TO LOOP WITH DATA 



.-MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 
:(R5)-EXPECTE0 DATA 
ilN LINE PARAMETER REGISTER. 177766 
:SET ALL REAO/URITE BITS 
sIN LINE PARAMETER REGISTER 
: CLEAR BIT 0 

iGET CONTENTS OF LINE PARAMETER 
i CLEAR UNWANTED BITS 
iUAS BIT 0 CLEARED 
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SEQ 75 



011220 
S7ER ERROP 

011220 

STER ERROR 

STER ERROR 

011222 
0112^6 

011230 
011234 
011236 

011242 
STER ERROR 

011242 

STER ERROR 

STER ERROR 

011244 



011246 



011246 
011246 
011254 
011262 



011270 
011276 
011302 



011312 
011316 

0' 1320 
011322 
011324 
■ STER ERROR 



104002 



052713 000001 
011304 

022704 177767 
001403 

012705 177767 



104002 



104400 



000002 
000001 
177775 
177765 
177765 



012767 000340 166522 
012767 004000 006574 
012767 011350 006562 



000110 

012777 004000 006512 

016703 006512 

012705 177765 



011306 012713 177767 
U0002 



042713 
011304 

020504 
001401 



.IIF ION 

EHT 

•IIF IDN 

.IIF IDN 

1«: BIS 
MOV 

.IIF NB <>, 
CMP 
BEQ 
MOV 



<DHl PR>.<DHLPR>. 



HLT 



<DHLPR>.<DHBCR>, HLT 3 

<DHLPR>,<DHSSR>. HLT 4 

:SET BIT 0 



sLINE PARAMETER REGI 

LINE PARAMETER REGI 
sLINE PARAMETER REGI 



.IIF ION 

E 

,IIF IDN 
.IIF ION 



EMT 



♦l.(R3) 
CR3).R4 
BIC «,R4 
#177767. R4 
2) 

♦1 77767. R5 
<DHLPR>.<DHLPR>, 



<DHLPR>.<DHBCR>, 
<DHLPR>.<OHSSR>, 



:CLEAR UNWANTED BITS 
sUAS BIT 0 SET 

;(R5)«EXPECTED DATA IN 
sLINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



:LINE PARAMETER REGI 

.•LINE »»ARAMETER REGI 
sLINE PARAMETER REGI 



2»: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX*BITX 

BITC-BITC*1 

.LIST 

.ENOC 

BITX-BITX*BITX 

BITC-BITC*1 

CCRBIT--BITX-1 

CLRBIT«CCRBITei77767 

BITCLR^CLRBIT 

REGTS7 t/OHLPR/.\BITX,t/LINE PARAMETER/ ,\BITC. 177767. \BITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/URITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 1 

VERIFY THAT BIT 1 MAS CLEARED 
RESTORE BIT 1 



{VERIFY THAT BIT 1 UAS SET 



TS \XN,4000,2$ 
T107: MOV 
NOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

em — 



#340.PS 
MOOO.ICOUNT 
»2I. ESCAPE 

«.FREEZ1 



«BIT11.9DHSCR 

DHLPR.R3 
#177 765, R5 

#177767. (R3) 

#2.(R3) 

(R3).R4 

BIC #.R4 

R5.R4 

1* 

<DHLPR>.<DHLPR>. 



{DISABLE ALL INTERRUPTS 
.•SET UP FOR 4000 ITERATIONS 
I SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 

{SET UP POINTER TO LINE PARAMETER 
:(R5)«EXPECTED DATA 
sIN LINE PARAMETER REGISTER. 177765 
:SET ALL READ/URITE BITS 
sIN LINE PARAMETER REGISTER 
jCLEAR BIT 1 

;GET CONTENTS OF LINE PARAMETER 
{CLEAR UNWANTED BITS 
{UAS BIT 1 CLEARED 



HLT 



{LINE PARAMETER REGI 
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SEQ 76 



S7ER ERROR 

STER ERROR 

011326 052713 000002 
011332 011304 

011334 022704 177767 

011340 001403 

011342 012705 177767 

011346 
STER ERROR 

011346 104002 

STER ERROR 

STER ERROR 

011350 104400 



011352 



000004 
000002 
177773 
177763 
177763 



011352 
011352 
011360 
011366 



011374 
011402 
011406 



012767 
012767 
012767 



000111 
012777 
016703 
012705 



011412 012713 

011416 042713 
011422 011304 

011424 020504 
011426 001401 
011430 
STER ERROR 

011430 104002 

STER ERROR 

STFR ERROR 



000340 166416 
004000 006470 
011454 006456 



004000 006406 

006406 

177763 



177767 
000004 



.IIF ION 

.IIF ION 

1*: BIS 
MOV 

.IIF NB <>, 
CMP 
BEQ 
MOV 



<DHLPR>,<DHBCR>. HLT 3 

<DHLPR>.<DHSSR>. HLT 4 

{SET BIT 1 



:LINE PARAMETER REGI 
5 LINE PARAMETER REGI 



.IIF IDN 

E 

.IIF IDN 
.IIF ION 



EMT 



#2.(R3) 
(R3J.R4 
BIC «.R4 
#177767, R4 
2) 

#177767, R5 
<DHLPR>,<OHLPR>. 



<DHLPR>.<DHBCR>. 
<DHLPR>,<OHSSR>, 



: CLEAR UNWANTED BITS 
iUAS BIT 1 SET 

:CR5)-EXPECTE0 DATA IN 
sLINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

:LINE PARAMETER REGI 
sLINE r^RAMETER REGI 



2$ : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX»BITX*BITX 

BITC-BITC*1 

.LIST 

.ENDC 

BITX-BITX*BITX 
BITC-BITC*1 
CCRBIT— BITX-1 
CLRBIT ■CCRBIT6177767 
BITCLR-CLRBIT 

REGTS7 t/OHLPR/ . \BITX . t/LINE PARAMETER/ . \BITC . 177767 . \BITCLR 
iLINE PARAMETER REGISTER DATA TEST 

5 SET ALL REAO/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
* CLEAR BIT 2 

I VERIFY THAT BIT 2 WAS CLEARED 
{RESTORE BIT 2 



! VERIFY THAT BIT 2 WAS SET 



TS \XN, 4000,2* 
TllO: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>, 
CMP 
BEQ 

.IIF IDN 



#340. PS 
«4000.IC0UNT 
«2». ESCAPE 

♦.FREE21 



«eiT11.80HSCR 
0HLPR.R3 
#177763. R5 

#177767. (R3) 

«4.(R3) 

(R3},R4 

BIC «.R4 

R5.R4 

1) 

<0HLPR>,<0HLPR>, 



:DISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



;MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 
!(R5)-EXPECTED DATA 
:IN LINE PARAMETER REGISTER. 177763 
:SET ALL READ/ WRITE BITS 
:IN LINE PARAMETER REGISTER 
! CLEAR BIT 2 

iGET CONTENTS OF LINE PARAMETER 
: CLEAR UNUANTEO BITS 
I MAS BIT 2 CLEARED 



EMT 



.IIF IDN 
■ air I BM 



<OHLPR>.<DHBCR>, 



HLT 

HLT 
■MtT- 



3 



iLINE PARAMETER REGI 
:LINE PARAMETER REGI 



CZDHA-D MACRO V04.00 27-JUN-85 12:46:01 PAGE 17-55 



SEQ 77 



0H432 
011436 

011440 
011444 
011446 

011452 
STER ERROR 

011452 

STER ERROR 

STER ERROR 

011454 



011456 



011456 
011456 
011464 
011472 



011500 
011506 
011512 



052713 000004 
011304 

022704 177767 
001403 

012705 177767 



104002 



1): 



104400 

000010 
000003 

000020 
000004 
177757 
177747 
177747 



012767 
012767 
012767 



000112 
012777 
016703 
012705 



011516 012713 



011522 
011526 

011';30 
011532 
011534 
STER ERROR 

011534 

STER ERROR 

STEP ERROR 

011536 
011542 

011544 



042713 
011304 

020504 
001401 



104002 



000340 166312 
004000 006364 
011560 006352 



004000 006302 

006302 

177747 



177767 
000020 



BIS 
MOV 
IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF IDN 

E 

.IIF ION 
.IIF ION 



EMI 



#4.(R3) 
(R3).R4 
BIC «,R4 
♦177767. R4 
2) 

♦177767. R5 

<DHLPR>.<DHLPR>. 

2 

<OHLPR>,<OHBCR>. 
<OHLPR>,<OHSSR>. 



.■SET BIT 2 



; CLEAR UNWANTED BITS 
;WAS BIT 2 SET 

s(R5)-EXPECTED DATA IN 
:LINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

:LINE PARAMETER REGI 
iLINE PARAMETER REGI 



2): SCOPE 
.IF EQ BITX-4 
BITX-BITX*BITX 
BITC-BITC*1 
.ENOC 

BITX-BITX»BITX 

BITC-BITCtl 

CCRBIT--BITX-1 

CLRBIT-CCRBIT£177767 

BITCLR-CLRBIT 

REGTS7 t/OHLPR/,\BITX.t/LINE PARAMETER/, \BITC, 177767, \BITCLR 
I LINE PARAMETER REGISTER DATA TEST 

SET ALL REAO/M^ITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 4 

VERIFY THAT BIT 4 WAS CLEARED 
RESTORE BIT 4 



VERIFY THAT BIT 4 WAS SET 



TS \XN.4000,2t 
Till: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN«XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>, 
CMP 
BEQ 

.IIF ION 

EMT 



♦340.PS 
MOOO.ICOUNT 
«2». ESCAPE 

♦.FREEZl 



♦6IT11.9DHSCR 
0HLPR.R3 
♦1 77747. R5 

♦177767. (R3) 

♦20. (R3) 

(R3).R4 

BIC ♦.R4 

RS.R4 

1) 

<DHLPR>,<OHLPR>, 



iOISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



:MASTER CLEAR INTERFACE 

iSET UP POINTER TO LINE PARAMETER 
;{R5)«EXPECTED DATA 
jIN LINE PARAMETER REGISTER. 177747 
;SET ALL READ/IWITE BITS 
:IN LINE PARAMETER REGISTER 
i CLEAR BIT 4 

iGET CONTENTS OF LINE PARAMETER 
: CLEAR UNWANTED BITS 
:UAS BIT 4 CLEARED 



HLT 



iLINE PARAMETER REGI 







.IIF 


IDN 


<DHLPR>,<DHBCR>. 


HLT 3 


iLINE PARAMETER REGI 






.IIF 


IDN 


<DHLPR>.<DHSSR>. 


HLT 4 


iLINE PARAMETER REGI 


052713 
011304 

022704 


000020 
177767 


It: 
,IIF 


BIS 
MOV 
NB <>. 
CMP 


♦20, (R3) 
(R3).R4 
BIC ♦.R4 
♦177767. R4 


iSET BIT 4 

t CLEAR UNWANTED BITS 
iUAS BIT 4 SET 
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SEQ 78 



011550 001403 

011552 012705 177767 



BEQ 
MOV 



011556 
STER ERROR 

011556 104002 

STER ERROR 

STER ERROR 

011560 104400 



011562 



000040 
000005 
177737 
177727 
177727 



011562 
011562 
011570 
011576 



011604 
011612 
011616 



012767 
012767 
012767 



000113 
012777 
016703 
012705 



L 



011622 012713 

011626 042713 

011632 011304 

011634 020504 

011636 001401 
011640 
STER ERROR 

011640 104002 

STER ERROR 

STER ERROR 

011642 052713 

011646 011304 

011650 022704 

011654 001403 

011656 012705 



000340 166206 
004000 006260 
011664 006246 



004000 006176 

006176 

177727 



177767 
000040 



000040 

177767 

177767 



.IIF ION 

E 

.IIF ION 
.IIF ION 



EMT 



2) 

♦177767. R5 
<DHLPR>.<DHLPR>, 



<DHLPR>,<OHBCR>. 
<DHLPR>.<OHSSR>, 



5(R5)-EXPECTED DATA IN 
:LINE PARAMETER REGISTER, 177767 
HLT 2 



HLT 
HLT 



3 
4 



{LINE PARAMETER REGI 

:LINE PARAMETER REGI 
:LINE PARAMETER REGI 



2) : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-eiTX*BITX 

BITC-BITC*1 

.LIST 

.ENOC 

BITX-BITX»BITX 
BITC-BITC*1 
CCRBIT— BITX-1 
CLRB1T-CCRBITC177767 
BITCLR-CLRBIT 

REGTS7 t/OHLPR/.\BITX.»/LINE PARAMETER/. \BITC. 177767. \8ITCLR 
iLINE PARAMETER REGISTER DATA TEST 

iSET ALL REAO/URITE BITS IN LINE PARAMETER REGISTER TO IS 
I CLEAR BIT 5 

{VERIFY THAT BIT 5 UAS CLEARED 
{RESTORE BIT S 



{VERIFY THAT BIT 5 UAS SET 



TS \XN.4000.2I 
T112: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 

.IIF ION 

It: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 



#340. PS 
MOOO.ICOUNT 
*2 I. ESCAPE 

*,FREEZ1 



«6ITll.flOHSCR 
0HLPR.R3 
#177727. R5 

♦177767. (R3) 

#40. (RS) 

(R3).R4 

BIC #.R4 

R5.R4 

}l 

<DHLPR>.<OHLPR>. 



<0HLPR>,<0HBCR>. 

<OHLPR>.<OHSSR>. 

•40. (RS) 

(R3}.R4 

BIC •.R4 

#177 767. R4 

2t 

#177767. R5 



{DISABLE ALL INTERRUPTS 

J SET UP FOR 4000 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

iSET TO LOOP UITH DATA 



{MASTER a£AR INTERFACE 

{SET UP POINTER TO LINE PARAMETER 
iCR5)"EXPECTE0 DATA 
{IN LIME PARA>«TER REGISTER. 177727 
;SET ALL REAO/URITE BITS 
:IN LINE PARAMETER REGISTER 
{CLEAR BIT 5 

(GET CONTENTS OF LINE PARAMETER 
(CLEAR 'JNUANTED BITS 
I UAS BIT 5 CLEARED 

HLT 2 



HLT 3 
HLT 4 
(SET BIT S 

(CLEAR UNUANTEO BITS 
(UAS BIT 5 SET 

((RSVEXPECTED DATA IN 



(LINE PARAMETER REuI 

(LINE PARAMETER REGI 
(LINE PARAMETER REGI 
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SEQ 79 



011662 
S'CR E«RO« 

011662 104002 

STER ERROR 

<TER ERROR 

011»64 104400 



01166e 



C30100 
000006 
177677 
177667 
177667 



011666 
011666 
011674 
0117C2 



011710 
011716 
011722 



012767 000340 166102 
012767 004000 006154 
012767 011770 006142 



000114 

012777 004000 0060 .'2 

016703 006072 

012705 177667 



011726 012713 177767 



011732 
011736 

011740 
011742 
011744 
STER ERROR 

011744 

STER ERROR 

STER ERROR 

011746 
011752 

0!1754 
011760 
011762 

011766 



042713 000100 
011304 

020504 
001401 



104002 



052713 000100 
011304 

022704 177767 
001403 

012705 177767 



.IV ION 

E 

.IIF IDN 
.Ilf IDN 



EMT 



<DHLPR>. <DHLPR>. 

2 

<DHLPR>.<DHBCR>. 
<DHLPR>,<OHSSR>, 



sLINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



3 
4 



tLINE PARAMETER REGI 

iLINE PARAMETER REGI 
iLINE PARAMETER REGI 



2»: SCOPE 
.IF EQ BITX-4 

.NLIST 

BITX'BITX.BITX 

BITC-BITC»1 

.LIST 

.ENOC 

BITX-BITX.BITX 

BITC-BITC*! 

CCRBIT.-BITX-l 

CLRBIT»CCRBITtl77767 

BITCLR-CLRBIT 

REGTS7 t/DHLPR/.\BITX,t/LINE PARAMETER/. \BITC. I 77767. \BITCLR 
iLINE PARAMETER REGISTER DATA TEST 

iSET ALL READ/URITE BITS IN LINE PARAMETER REGISTER TO IS 
i CLEAR BIT 6 

: VERIFY THAT BIT 6 UAS CLEARED 
{RESTORE BIT € 



{VERIFY THAT BIT 6 UAS SET 



TS \XN,4000.2I 
T113: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 

MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 

EMT 

,IIF IDN 

.IIF IDN 

II: BIS 
MOV 

.IIF NB <>, 
CMP 
BEQ 
MOV 

.IIF ION 



♦340. PS 
MOOO.ICOUNT 
•2*. ESCAPE 

«.FREEZ1 



«6IT11.90HSCR 
0HLPR.R3 
•177667. R5 

#177767. (R3) 

•100. (R3) 

(R3).R4 

BIC •.R4 

R5.R4 

1* 

<DHLPR>.<DHLPR>. 



*DHLPR>.<DHBCR>. 

<Of«.PR>.<DHSSR>. 

•100. (R3) 

(R3).R4 

BIC «,R4 

♦177767, R4 

2* 

♦177767. R5 
<DHLPR>.<DHLPR>. 



; DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 
(R5)«EXPECTED DATA 
IN LINE PARAMETER REGISTER. 177667 
SET ALL READ/URITE BITS 
IN LINE PARAMETER REGISTER 
CLEAR BIT 6 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNUANTED BITS 



UAS BIT 6 CLEAPED 
HLT 2 

HLT 3 
HLT 4 
iSET BIT 6 

: CLEAR UNUANTED BITS 
iUAS BIT 6 SET 

i(R5)-EXPECTE0 DATA IN 
:LINE PARAMETFR REGISTER. 177767 
HLT 



:LINE PARAMETER REGI 

iLINE PARAMETER REGI 
sLINE PARAMETER REGI 



iLINE PARAMETER REGI 
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SEQ 80 



011766 104002 

STER ERROff 

STER ERROR 

011770 104400 



011772 



000200 
000007 
177577 
177567 
177567 



011772 
011772 
012000 
012006 



012014 
012022 
012026 



012767 
012767 
012767 



000115 
012777 
016703 
0127C5 



012032 012713 

012036 0^2713 

012042 011304 

012044 020504 

012046 001401 
012050 
STER ERROR 

012050 104002 

STER ERROR 

STER ERROR 

012052 052713 

012056 011304 

012060 022704 

012064 001403 

012066 012705 

012072 
STER ERROR 

012072 104002 

sTFe FBBne 



000340 165776 
004000 006050 
012074 006036 



004000 005766 

005766 
177567 



177767 
000200 



000200 

177767 
177767 



.Ilf ION 
.Uf ION 



EMT 



<DHLPR>.<OHeCR>. 
<OHLPR>.<OHSSR>, 



nLT 
HLT 



:LINE PARAMETER REGI 
;LINE PARAMETER REGI 



2» : SCOPE 
.If EQ BITX-4 
.NLIST 

BITX'BITX.BITX 

BITC-BITC*1 

.LIST 

.ENOC 

BITX'BITX.BITX 
BITC'BITC.l 
CCRBIT- BITX-1 
CLRBIT'CCRBITf;i77767 
BITCLP-CLRBIT 

REGTS7 t/DHLPR/.\BITX.t/LINE PARAMETER/. \BITC. 177767, \BITCLR 
;LINE PARAMETER REGISTER DATA TEST 

I SET ALL READ/URITE BI''S IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 7 

VERIFY THAT BIT 7 WAS CLEARED 
RESTORE BIT 7 



VERIFY THAT BIT 7 WAS SET 



TS \XN.4000.2» 
T114: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

•IIF NB <>, 
CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 

.IIF IDN 

It: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 

MOV 

.IIF IDN 



•340. PS 
«4000.IC0UNT 
•2 ». ESCAPE 

♦.FREEZl 



«eiT11.6DHSCR 
DHLPR.R3 
•177567. R5 

♦1 77767. (R3) 

•200. (R3) 

(R3).R4 

BIC •.R4 

R5.R4 

1* 

<DHLPR>.<OHLPR>. 



<DHLPR>.<DHBCR>. 

<DHLPR>.<DHSSR>. 

♦200. {R3) 

(R3).R4 

BIC •.R4 

♦1 77767. R4 

2t 

•177767. R5 
<DHLPR>,<DHLPR>. 



{DISABLE ALL INTERRUPTS 

8 SET UP FOR 4000 ITERATIONS 

;SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



s MASTER CLEAR INTERFACE 

jSET UP POINTER TO LINE PARAMETER 
j(R5)«EXPECTED DATA 
:IN LINE PARAMETER REGISTER. 177567 
:SET ALL READ/URITE BITS 
tIN LINE PARAMETER REGISTER 
iCLEAR BIT 7 

:GET CONTENTS OF LINE PARAMETER 
; CLEAR UNWANTED BITS 



:UAS BIT 7 CLEARED 

HLT 2 

HLT 3 
HLT 4 

;SET BIT 7 

: CLEAR UNWANTED BITS 
jUAS BIT 7 SET 

sfR5)-EXPECTED DATA IN 

:LINE PARAMETER REGISTER. 177767 

HLT 2 



:LINE PARAMETER REGI 

:LINE PARAMETER REGI 
iLINE PARAMETER RESI 



.IIF IDN 



EMT 



<DHLPR>.<DHBCR>. 



HLT 



:LINE PARAMETER REGI 
;LINE PARAMEIER REGI 



CZOHA-D nACRO V04.00 27-JUN-8S 12:46:01 PAGE 17-59 



SEQ 81 



STER ERRCH 

012074 104400 



.IIF IDN 



<DHLPR>,<OHSSR>. 



HLT 



sLINE PARAMETER REGI 



012076 



000400 
000010 
177377 
177367 
177367 



012076 
012076 
012104 
012112 



012120 
012126 
012132 



012767 
012767 
012767 



000116 
012777 
016703 
012705 



012136 012713 



012142 
012146 

012150 
012152 
012154 
STER ERROR 

012154 

STER ERROR 

STLR ERROR 

012156 
012162 

012164 
012170 
012172 

012176 
STER ERROR 

012176 

STER ERROR 

STER ERROR 



000340 
004000 
012200 



004000 
005662 
177367 

177767 

000400 



165672 
005744 
005732 



005662 



042713 
011304 

020504 
001401 



104002 



052713 000400 
011304 

022704 177767 
001403 

012705 177767 



104002 



2$ : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX»BITX 

BITC-BITC*1 

.LIST 

.ENOC 

BITX-BITX*BITX 

BITC-BITC«1 

CCRBIT--BITX-1 

CLRBIT-CCRBIT6177767 

BITCLR-CLRBIT 

REGTS7 t/DHLPR/.\BITX.t/LINE PARAMETER/, \BITC. 177767. \BITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 10 

VERIFY THAT BIT 10 WAS CLEARED 
RESTORE BIT 10 



VERIFY THAT BIT 10 MAS SET 



TS \XN.4000.2I 
T115: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XNtl 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

•IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF IDN 

.IIF IDN 

1$: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF IDN 

EMT 

•IIF IDN 
.IIF IDN 

at I Bcopc 



♦340. PS 
«4000.IC0UNT 
♦2*. ESCAPE 

«.FREEZ1 



«BIT11.8DHSCR 
DHLPR.R3 
«1 77367. RS 

•177767. (R3) 

«400.(R3} 

(R3}.R4 

BIC •.R4 

R5.R4 

II 

<DHLPR>.<DHLPR>, 



<DHLPR>.<DHBCR>. 

<DHLPR>.<DHSSR>. 

♦400. (R3) 

(R3),R4 

BIC «.R4 

♦177767. R4 

21 

♦177767. R5 
<DHLPR>.<DHLPR>. 

2 

<DHLPR>,<DHBCR>. 
<DHLPR>.<DHSSR>. 



; DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 
(R5)-EXPECTED DATA 
IN LINE PARAMETER "EGISTER. 177367 
SET ALL READ/URITE BITS 
IN LINE PARAMETER REGISTER 
CLEAR BIT 10 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNUANTED BITS 
UAS BIT 10 CLEARED 

HLT 2 



HLT 3 
HLT 4 

.-SET BIT 10 

: CLEAR UNUANTED BITS 
sUAS BIT 10 SET 

:CR5)-EXPECTED DATA IN 
;LINE PARAMETER REGISTER. 177767 
HLT 2 



iLINE PARAMETER REGI 

;LINE PARAMETER REGI 
:LINE PARAMETER REGI 



HLT 

HLT 



3 
4 



:LINE PARAMETER REGI 

sLINF PARAMETER REGI 
;LINE PARAfCTEP REGI 
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SEQ 82 



012202 



001000 
000011 
176777 
176767 
176767 



.IF EQ BITX-4 
.NLIST 

BITX>BITX*BITX 

BITC-BI7C*1 

.LIST 

.ENOC 

BITX-BITX*BITX 

BITC-BITC*1 

CCRBIT--BITX-1 

CLRBIT-CCRBITC177767 

BITCLR-CLRBIT 

REGTS7 t/OHLPR/.SBITX.t/LINE PARAMETER/, SBITC, 177767, SBITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 11 

VERIFY THAT BIT 11 WAS CLEARED 
RESTORE BIT 11 
VERIFY THAT BIT 11 WAS SET 



012202 

012202 012767 000340 165566 

012210 012767 004000 005640 

012216 012767 012204 005626 



000117 

012224 012777 004000 005556 

012232 016703 005556 

012236 012705 176767 

012242 012713 177767 



012246 
012252 

012254 
012256 
012.>60 
STER ERROR 

012260 

STER ERROR 

STER ERROR 

012262 
012266 

012270 
012274 
012276 

012302 
STER ERROR 

012302 

STER ERROR 

STER ERROR 

012304 



042713 001000 
011304 

020504 
001401 



104002 



052713 001000 
Oi 1304 

022704 177767 
001403 

0.2705 177767 



104002 



104400 



TS \XN.4000.2* 
T116: MOV 
MOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
HOV 

MOV 

6IC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

•IIF ION 

EMT 

.IIF IDN 

.IIF IDN 

1$: BIS 
HOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF IDN 

i 

.IIF ION 
.IIF ION 



EMT 



♦340. PS 
«4000.IC0UNT 
«2>. ESCAPE 

♦.FREEZl 



«eiTll.S0HSCR 
0HLPR.R3 
♦1 76767. R5 

♦177767. (R3) 

♦ICOO.CRS) 

(R3),R4 

8IC ♦.R4 

RS.R4 

1« 

<OHLPR>,<OHLPR>. 



<OHLPR>,<OHBCR>. 

<DHLPR>,<DHSSR>. 

♦1000. (R3) 

(R3).R4 

BIC ♦.R4 

♦177767, R4 

2* 

♦177767, R5 

<DHLPR>.<OHLPR>. 

2 

<0HLPR>,<0H6CR>. 
<DHLPR>,<DHSSR>. 



sDISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



;MASTER CLEAR INTERFACE 

:SET UP POINTER TO LINE PARAMETER 
.(R5)-EXPECTE0 DATA 
jIN LINE PARAMETER REGISTER. 176767 
.-SET ALL READ/URITE BITS 
:IN LINE PARAMETER REGISTER 
{CLEAR BIT 11 

:6ET CONTENTS OF LINE PARAMETER 
iCLEAR UNUANTED BITS 
tUAS BIT 11 CLEARED 

HLT 2 

HLT 3 

HLT 4 

iSET BIT 11 

: CLEAR UNUANTED BITS 
tUAS BIT 11 SET 



:L!NE PARAMETER REGI 

iLINE PARAMETER REGI 
:LINE PARAMETER REGI 



s(RS}-EXPECTED DATA IN 
iLINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

iLINE PARAMETER REGI 
iLINE PARAMETER REGI 



2): SCOPE 
.IF EQ BITX-4 
.NLIST 
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SEQ 83 



012306 



002000 
000012 
175777 
175767 
175767 



BITX-BITX»BITX 

BITC"BITC*1 

.LIST 

.ENOC 

BITX-BITX*BITX 

BITC-BITC*! 

CCRBIT--BITX-1 

CLRBIT-CCRBITC177767 

BITCLR-CLRBIT 

REGTS7 t/DHLPR/.\BITX.t/LINE PARAMETER/, \BITC, 177767, \BITCLR 
{LINE PARAMETER REGISTER DATA TEST 

sSET ALL READ/URITE BITS IN LINE PARAMETER REGISTER TO IS 
! CLEAR BIT 12 

VERIFY THAT BIT 12 UAS CLEARED 
RESTORE BIT 12 
VERIFY THAT BIT 12 UAS SET 



012306 

012306 012767 

012314 012767 

012322 012767 



012330 
012336 
012342 



000120 
012777 
016703 
012705 



012346 012713 

012352 042713 
012356 011304 

012360 020504 
012362 001401 
012364 
STER ERROR 

012364 104002 

STER ERROR 

STER ERROR 

012366 052713 
012372 011304 

012374 022704 
012400 001403 
012402 012705 

012406 
STER ERROR 

012406 104002 

STER ERROR 

STER ERROR 

012410 104400 



000340 
004000 
012410 



004000 
005452 
175767 

177767 

002000 



002000 

177767 
177767 



165462 
0055. • 
005522 



005452 



TS \XN,4000.2* 
T117: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN«XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF ION 

.IIF ION 

1»: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF ION 

E 

.IIF ION 
.IIF ION 



EMT 



2$: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX*BITX 
eTTC-BITC*l 



♦340. PS 
«4000.ICOUNT 
*2». ESCAPE 

♦.FREEZl 



«BIT11.S0HSCR 
DHLPR.R3 
•175767. R5 

•177767. (R3) 

•2000. (R3) 

(R33.R4 

BIC •.R4 

R5.R4 

II 

<0HLPR>.<0HLPR>. 



<DHLPR>.<DHBCR>, 

cDHLPR>.<OHSSR>. 

•2000. (R3) 

CR3}.R4 

BIC •.R4 

♦177767. R4 

2* 

♦177767. R5 

<DHLPR>,<OHLPR>. 

2 

<0HLPR>.<0H8CR>, 
<DHLPR>,<DHSSR>. 



:0ISABLE ALL INTERRUPTS 

I SET UP FOR 4000 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



i 3 



.-MASTER CLEAR INTERFACE 

iSET UP POINTER TO LINE PARAMETER 

(RS)-EXPECTEO DATA 

IN LINE PARAMETER REGISTER. 175767 

SET ALL READ/URITE BITS 

IN LINE PARAMETER REGISTER 
i CLEAR BIT 12 

:GET CONTENTS OF LINE PARAMETER 
iCLEAR UNUANTED BITS 
;UAS BIT 12 CLEARED 

HLT 2 



HLT 3 

HLT 4 

iSET BIT 12 

:CLEAR urMANTEO BITS 
jUAS BIT 12 SET 

J (R5) 'EXPECTED DATA IN 
sLINE PARAMETER REGISTER. 177767 
HLT 2 



si.INE PARAMETER R^GI 

ILINE PARAMETER REGI 
:LINE PARAMETER REGI 



HLT 
HLT 



3 
4 



iLINE PARAMETER RE3I 

iLINE PARAMETER REGI 
iLINE PARAMETER REGI 
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SEQ 84 



012412 



004000 
000013 
173777 
173^ )7 
173767 



012412 

012412 012767 000340 

012420 012767 004000 

012426 012767 012514 



012434 
012442 
012446 



000121 
012777 
016703 
012705 



012452 012713 



012456 
012462 

012464 
012466 
012470 
STER ERROR 

0124-70 

STER ERROR 

STER ERROR 

012472 
012476 

012500 
012504 
012506 

012512 
STER ERROR 

012512 

STER ERROR 

STER ERROR 

012514 



004000 
C05346 
173767 

177767 

004000 



042713 
011304 

020504 
001401 



104002 



052713 004000 
011304 

022704 177767 
001403 

012705 177767 



104002 



104400 



.LIST 
.ENOC 

BITX-BITX»BITX 

BITC-BITC+1 

CCRBIT«-BITX-1 

CLRBIT-CCRBIT£177767 

BITCLR«CLRBIT 

REGTS7 t/DHLPR/.\BITX,t/LINE PARAMETER/. \BITC, 177767. \BITCLR 
{LINE PARAMETER REGISTER DATA TEST 

sSET ALL READ/URITE BITS IN LINE PARAMETER REGISTER TO IS 
;CLEAR BIT 13 

! VERIFY THAT BIT 13 WAS CLEARED 
sRESTORE BIT 13 



} VERIFY THAT BIT 13 WAS SET 



TS \XN. 4000,2* 
165356 T120: MOV 
005430 MOV 
005416 MOV 

.IF NB <> 
MOV 

.ENDC 
XN-XN*1 
005346 MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF IDN 
.IIF IDN 



EMT 



It 



BIS 
MOV 
IIF NB <>, 
CMP 
BEQ 
MOV 



EMT 



.IIF IDN 

E 

.IIF ION 
.IIF ION 



2»: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX*BITX 

BITC»BITC»1 

.LIST 

.ENDC 



♦340. PS 
«4000,IC0UNT 
*2 I, ESCAPE 

».FREEZ1 



«6IT11.8DHSCR 
DHLPR.R3 
#1 73767. R5 

#177767. (R3) 

#4000. (R3) 

(R3).R4 

BIC «.R4 

R5.R4 

II 

<DHLPR>,<DHLPR>. 



<DHLPR>.<OHBCR>. 

<DHLPR>.<DHSSR>. 

«4000.(R3) 
(R3).R4 
BIC «.R4 
♦177 76 7. R4 

♦177767. R5 

<DHLPR>.<0HLPR>. 

2 

<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>. 



s DISABLE ALL INTERRUPTS 

8 SET UP FOR 4000 ITERATIONS 

;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

sSET UP POINTER TO LINE PARAMETER 
(R5) -EXPECTED DATA 
IN LINE PARAMETER REGISTER. 173767 
SET ALL READ/WRITE BITS 
IN LIHE PARAMETER REGISTER 
CLEAR BIT 13 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
WAS BIT 13 CLEARED 

HLT 2 



HLT 3 

HLT 4 

:SET BIT 13 

: CLEAR UNWANTED BITS 
:WAS BIT 13 SET 

sCR5)«EXPECTED DATA IN 
sLINE PARAMETER REGISTER. 177767 
hLT 2 



iLINE r -RAMETER REGI 

:LINE PARAMETER REGI 
:LINE PARAMETER REGI 



HLT 
HLT 



3 
4 



.•LINE PARAMETER REGI 

sLINE PARAMETER REGI 
iLINE PARAMETER REGI 
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SEQ 85 



012516 



010000 
000014 
167777 
167767 
167767 



BITX-BITX*BITX 
BITC-BITC*1 
CCRBIT«-BITX 1 
CLRBIT=CCRBIT6177767 
BITCLR-CLRBIT 

REGTS7 t/OHLPR/.\BITX.t/LINE PARAMETER/, \BITC. 177767. \BITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 14 

VERIFY THAT BIT 14 WAS CLEARED 
RESTORE BIT 14 











s VERIFY 


THAT BIT 14 WAS SET 




012516 








TS \XN,4000,2* 






012516 


012767 


000340 


165252 


T121: MOV 


#340, rS 


; DISABLE ALL INTERRUPTS 


012524 


012767 


004000 


Oil 

005324 


nuv 


Ail AAA TPni IKIT 


. CC^ 1 ID CnO JIAAA TTCOATTAkie 

;bLI Ur ruK 4UU0 XTcKAIIONS 


012532 


012767 


012620 


005312 


nuv 




• CCT 1 ID Tn CC^ADC TO UCVT TCCT 








.IF NB <> 
















d FREEZl 


•SET UP TO LOOP WITH DATA • 3 










.ENDC 








000122 






XN-XN«1 






012540 


012777 


004000 


005242 


MOV 


«BIT11.9DHSCR 


-.MASTER CLEAR INTERFACE 


012546 


016703 


005242 




MOV 


DHLPR,R3 


;SET UP POINTER TO LINE PARAMETER 


012552 


012705 


167767 




MOV 


♦167767. R5 


:(R5)>EXPECTE0 DATA 












:IN LINE PARAMETER REGISTER, 167767 


012556 


012713 


177767 




MOV 


♦177767. (R3) 


;SET ALL READ/WRITE BITS 














:IN LINE PARAMETER REGISTER 


012562 


042/13 


010000 




BIC 


♦10000. (R3) 


:CLEAR BIT 14 


012566 


011304 






MOV 


(R3),R4 


;GET CONTENTS OF LINE PARAMETER 






•IIF NB <>, 


BIC ♦,R4 


t CLEAR UNWANTED BITS 


012570 


020504 






CMP 


R5,R4 


sUAS BIT 14 CLEARED 


012572 


001401 






BEQ 


1) 




012574 








•IIF IDN 


<0HLPR>.<DHLPR>, 


HLT 2 {LINE PARAMETER 


STER ERROR 








EMT 






012574 


104002 






2 





STER ERROR 

STER ERROR 

012576 
012602 

012604 
012610 
012612 

012616 
STER ERROR 

012616 

STER ERROR 

STER ERROR 

012620 



052713 
011304 

022704 
001403 
012705 



104002 



104400 



010000 

177767 
177767 



.IIF IDN 

.IIF IDN 

1»: BIS 
MOV 

,IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF ION 

E 

.IIF ION 
.IIF IDN 



EMT 



<0HLPR>,<DHBCR>. 

<DHLPR>.<DHSSR>, 

♦10000. (R3) 

(R3),R4 

BIC ♦.R4 

♦1 77767, R4 

21 

♦177767. R5 

<DHLPR>.<DHLPR>. 

2 

<OHLPR>.<DHBCR>, 
<OHLPR>,<DHSSR>. 



HLT 3 
HLT 4 

iSET BIT 14 

i CLEAR UNWANTED BITS 
iWAS BIT 14 SET 

sCR5)=EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
HLT 



:LINE PARAMETER 
:LINE PARAMETER 



REGI 

REGI 
REGI 



iLINE PARAMETER REGI 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 
iLINE PARAMETER REGI 



020000 
000015 



2) : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX*BITX 

BITC-BITC+l 

.LIST 

.ENOC 

BITX-BITX*BITX 
BITC«BITC»1 
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012622 



012622 



STER 



012644 
012652 
012656 

012662 

012666 
012672 

012674 
012676 
012700 
ERROR 
012700 



STER ERROR 
STER 



STER 



ERROR 
012702 
012706 

012710 
012714 
012716 

012722 
ERROR 
012722 



STER ERROR 
STER 



ERROR 
012724 



157777 
157767 
157767 



CCRBIT»-BITX-1 

CLRBIT-CCRBIT6177767 

BITCLR-CLRBIT 

REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/. \BITC. 177767. \BITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL REAO/MRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 15 

VERIFY THAT BIT 15 WAS CLEARED 
RESTORE BIT 15 
VERIFY THAT BIT 15 WAS SET 









TS \XN.4000.2$ 






012767 


000340 


165146 


T122: MOV 


#340. PS 


DISABLE ALL INTERRUPTS 


012767 


004000 


005220 


MOV 


«4000.IC0UNT 


SET UP FOR 4000 ITERATIONS 


012767 


012724 


005206 


MOV 
.IF N6 <> 


«2). ESCAPE i 


SET UP TO ESCAPE TO NEXT TEST 








MOV 


♦.FREEZl :SET UP TO LOOP WITH DATA i 3 








.ENOC 






000123 






XN-XN>1 






012777 


004000 


005136 


MOV 


«6IT11,SDHSCR 


MASTER CLEAR INTERFACE 


016703 


005136 




MOV 


DHLPR.R3 


:SET UP POINTER TO LIKE PARAMETER 


012705 


157767 




MOV 


♦157767. R5 


(R5)«EXPECTED DATA 

IN LINE PARAMETER REGISTER, 157767 


012713 


177767 




MOV 


♦177767. (R3) 


SET ALL READ/WRITE BITS 
IN LINE PARAMETER REGISTER 


042713 


020000 




BIC 


♦20000. (R3) 


CLEAR BIT 15 


011304 






MOV 


(R3).R4 


iGET CONTENTS OF LINE PARAMETER 








.IIF NB <>, 
CMP 


BIC ♦.R4 


; CLEAR UNWANTED BITS 


020504 






R5.R4 


;UAS BIT 15 CLEARED 


001401 






BEQ 


1$ 










.IIF ION 


<OHLPR>.<DHLPR>. HLT 2 ;LINE PARAMETER REGI 



104002 



052713 020000 
011304 

022704 177767 
001403 

012705 177767 



104002 



104400 



040000 
000016 
137777 
137767 



EMT 

.IIF IDN 

.IIF ION 

1$: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 



.IIF IDN 
.IIF ION 



EMT 



<DHLPR>.<DHBCR>. 

*DHLPR>.<DHSSR>, 

♦20000, (R3) 

CR3).R4 

BIC ♦,R4 

♦1 77767, R4 

2) 

♦177767, R5 

<DHLPR>,<DHLPR>, 

2 

<DHLPR>,<0HBCR>. 
<0HLPR>,<0HSSR>. 



HLT 3 

HLT 4 

jSET BIT 15 

! CLEAR UNWANTED BITS 
;UAS BIT 15 SET 

i(R5}-EXPECTED DATA IN 
iLINE PARAMETER REGISTER, 177767 
HLT 2 



;LINE PARAMETER REGI 
sLINE P/'RAMETER REGI 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

:LINE PARAMETER REGI 
(LINE PARAMETER REGI 



2$: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX»BITX*BITX 

BITC-BITC*1 

.LIST 

.ENDC 

BITX*BITX*BITX 
BITC«BITC*1 
CCRBIT--BITX 1 
CLRBIT=CCRBIT£177767 
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012726 



137767 



012726 
012726 
012734 
012742 



012750 
012756 
012762 



012772 
012776 

013000 
013002 
013004 
STER ERROR 

013004 

STER ERROR 

STER ERROR 

013006 
013012 

013014 
013020 
013022 

013026 
STER ERROR 

013026 

STER ERROR 

STER ERROR 

013030 



012767 
012767 
012767 



000124 
012777 
016703 
012705 



012766 012713 



042713 
011304 

020504 
001401 



104002 



052713 
011304 

022704 
001403 
012705 



104002 



104400 



013032 



100000 
000017 
077777 
077767 
077767 



000340 165042 
004000 005114 
0130Z0 005102 



004000 005032 

005032 

137767 

177767 

040000 



040000 

177767 
177767 



BITCLR'CLRBIT 

REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/. \BITC. 177767. \BITCLR 
LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 16 

VERIFY THAT BIT 16 WAS CLEARED 
! RESTORE BIT 16 



; VERIFY THAT BIT 16 WAS SET 



TS \XN,4000.2» 
T123: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 

EMT 

.IIF IDN 

.IIF IDN 

1$: BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 



.IIF IDN 
.IIF IDN 



EMT 



*340.PS 
«4000.IC0UNT 
«2$, ESCAPE 

#.FREEZ1 



«6IT11.SDHSCR 
DHLPR.R3 
♦137767. R5 

#177767. (R3) 

*40000.(R3) 

(R3).R4 

BIC «.R4 

R5,R4 

1$ 

<OHLPR>,<DhLPR>, 



<DHLPR>.<DHBCR>, 

<DHLPR>,<DHSSR>, 

«40000.(R3) 

(R3).R4 

BIC «.R4 

W77767.R4 

2$ 

#177767. R5 

<DHLPR>,<DHLPR>. 

2 

<0HLPR>.<DHBCR>. 
<DHLPR>.<DHSSR>, 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



; MASTER CLEAR INTERFACE 

;SET UP POINTER TO LINE PARAMETER 
(R5)>EXPECTED DATA 
IN LINE PARAMETER REGISTER, 137767 
SET ALL READ/WRITE BITS 
IN LINE PARAMETER REGISTER 
CLEAR BIT 16 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 



WAS BIT 16 CLEARED 
HLT 2 

HLT 3 

HLT 4 

;SET BIT 16 

i CLEAR UNWANTED BITS 
iWAS BIT 16 SET 

s(R5) EXPECTED DATA IN 
:LINE PARAMETER REGISTER, 177767 
HLT 



:LINE PARAMETER REGI 

iLINE PARAMETER REGI 
sLINE PARAMETER REGI 



HLT 
HLT 



3 
4 



iLINE PARAMETER REGI 

sLINE PARAMETER REGI 
tLINE PARAMETER REGI 



2$ : SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX«BITX*BITX 

BITC«BITC*1 

.LIST 

.ENDC 

BITX-BITX»BITX 

BITC=BITC*1 

CCRBIT»-BITX-1 

CLRBIT«CCRBIT£177767 

BITCLR'CLRBIT 

REGTS7 t/DHLPR/.\BITX.t/LINE PARAMETER/ . \BITC .177767 . \BITCLR 
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SEQ 88 



013032 

013032 012767 

013040 012767 

013046 012767 



013054 
013062 
013066 



000125 
012777 
016703 
012705 



013072 012713 



013076 
013102 

013104 
013106 
013110 
STER ERROR 

013110 

STER ERROR 

STER ERROR 

013112 
013116 

013120 
013124 
013126 

013132 
STER ERROR 

013132 

STER ERROR 

STER ERROR 

013134 



325 
326 
327 
328 
330 
331 



042713 
011304 

020504 
001401 



104002 



052713 
011304 

022704 
001403 
012705 



104002 



104400 



000000 
000020 
000000 
000020 
000001 
000000 
000020 



000340 
004000 
013134 



004000 
004726 
077767 

177767 

100000 



100000 

177767 
177767 



164736 
005010 
004776 



004726 



LINE PARAMETER REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO IS 
CLEAR BIT 17 

VERIFY THAT BIT 17 UAS CLEARED 

RESTORE BIT 17 

VERIFY THAT BIT 17 UAS SET 



TS \XN.4000,2* 
T124 : MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN«1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

•IIF ION 



.IIF ION 
.IIF ION 



EMT 



1) 



BIS 
MOV 

IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF ION 

E 

.IIF ION 
.IIF ION 



EMT 



2»: SCOPE 
.IF EQ BITX-4 
.NLIST 

BITX-BITX»BITX 

BITC-BITC*! 

.LIST 

.ENOC 

BITX-BITX»BITX 

BITC-BITC*! 

XBIT-BITX 

CBIT-BITC 

BITX-1 

BITC-0 

.REPT 16. 

.NLIST 



#340. PS 
#4000,IC0UNT 
«2». ESCAPE 

«.FREEZ1 



«BIT11.8DHSCR 
~HLPR.R3 
#77767. R5 

#177767, (R3) 

#100000. (R3) 

(R3).R4 

BIC #,R4 

R5,R4 

It 

<OHLPR>.<OHLPR>, 



<OHLPR>.<OHBCR>. 

<DHLPR>,<OHSSR>, 

#100000, (R3) 

(R3).R4 

BIC #.R4 

#177767, R4 

2i 

#177-'67,R5 

<DHLPR>,<0HLPR>, 

2 

<DHLPR>.<OHBCR>. 
<0HLPR>.<0HSSR>. 



sDISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

;SET UP POINTER TO LINE PARAMETER 
(R5)-EXPECTE0 DATA 
IN LINE PARAMETER REGISTER. 77767 
SET ALL REAO/URITE BITS 
IN LINE PARAMETER REGISTER 
CLEAR BIT 17 

GET CONTENTS OF LINE PARAMETER 
CLEAR UNWANTED BITS 
UAS BIT 17 CLEARED 



HLT 

HLT 
HLT 



:LINE PARAMETER REGI 

:LINE PARAMETER REGI 
:LINE PARAMETER REGI 



sSET BIT 17 

iCLEAP UNWANTED BITS 
:WAS BIT 17 SET 

:(R5)*EXPECTE0 DATA IN 
;LINE PARAMETER REGISTER. 177767 
HLT 2 



HLT 
HLT 



3 
4 



sLINE PARAMETER REGI 

sLINE PARAMETER REGI 
;LINE PARAMETER REGI 



CZOHA-0 nACRO V04.00 27-JUN-85 12:46:01 PAGE 17-67 



SEQ S9 



332 
333 
334 
335 
336 
337 
338 
339 
340 



013196 



177776 
177776 



CLRBIT" BITX-1 

BITCLR«CLRBIT 

.LIST 

REGTS7 t/DHBCR/.\BITX.t /BREAK CONTROL/. \BITC. 177777. \BITCLR 
.NLIST 

BITX-BITX*BITX 

BITC-BITC*! 

.LIST 

.ENDR 

CLRBIT--BITX-1 
BITCLR-CLRBIT 

REGTS7 t/DHBCR/.\BITX.t/BREAK CONTROL/. \BITC, 177777. \BITCLR 
sBREAK CONTROL REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO IS 
.•CLEAR BIT 0 

i VERIFY THAT BIT 0 WAS CLEARED 

;RESTORE BIT 0 

: VERIFY THAT BIT 0 WAS SET 



013136 
013136 
013144 
013152 



013160 
013166 
013172 



013202 
013206 

013210 
013212 

TER ERROR 

013214 
TER ERROR 

013214 

TER ERROR 

013216 
013222 

013224 
013230 
013232 



TER ERROR 

013236 
TER ERROR 

013236 

TER ERROR 

013240 



012767 
012767 
012767 



000126 
012777 
016703 
012705 



013176 012713 



042713 
011304 

020504 
001401 



104003 



052713 
011304 

022704 
001403 
012705 



104003 



104400 
000002 
000001 



000340 
004000 
013240 



004000 
004632 
177776 

177777 

000001 



000001 

177777 
177777 



TS \XN.4000.2$ 
164632 T125: MOV 
004704 MOV 
004672 MOV 

.IF NB <> 
MOV 

.ENDC 
XN-XN«1 
004622 MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 



.IIF ION 

I 

.IIF IDN 
1$: 



EMT 



BIS 
MOV 
.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF IDN 
.IIF IDN 

EMT 

.IIF IDN 

2$: SCOPE 

BITX«BITX*BITX 

BITC-BITC*! 



♦340. PS 
«4000.IC0UNT 
«2$. ESCAPE 

♦.FREEZl 



«eiT11.8DHSCR 
DHBCR.R3 
♦177776. R5 

♦1 77777. (R3) 

*1.(R3) 
(R3).R4 
BIC «.R4 
R5.R4 
1» 

<OHBCR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 



sLISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



;MASTER CLEAR INTERFACE 

J SET UP POINTER "O BREAK CONTROL 
:(R5)«EXPECTED DATA 
:IN BREAK CONTROL REGISTER. 177776 
:SET ALL READ/URITE BITS 
;IN BREAK CONTROL REGISTER 
: CLEAR BIT 0 

:GET CONTENTS OF BREAK CONTROL 
:CLEAR UNWANTED BITS 
iUAS BIT 0 CLEARED 



<DHBCR>,<DHSSR>, 

♦l.(R3) 

(R3).R4 

BIC «.R4 

♦177777. R4 

2$ 

♦177777, R5 
<DHBCR>.<DHLPR>, 
<DHBCR>.<DHBCR>. 
3 

<DH6CR>.<DHSSR>. 



HLT 
HLT 

HLT 
sSET BIT 0 



2 
3 



: BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 

iBREAK CONTROL REGIS 



: CLEAR UNWANTED BITS 
-.WAS BIT 0 SET 

:CR5)»EXPECTED DATA IN 

jBREAK CONTROL REGISTER. 177777 

HLT 2 

HLT 3 



HLT 



sBREAK CONTROL REGIS 
iBREAK CONTROL REGIS 

:BREAK CONTROL REGIS 
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013242 



177775 
177775 



013242 



013242 
013250 
013256 


012767 
012767 
012767 


000340 
004000 
013344 


164526 
004600 
004566 


013264 
013272 
013276 


000127 
012777 
016703 
012705 


004000 
004526 
177775 


004516 


013302 


012713 


177777 




013306 
013312 


042713 
011304 


000002 




013314 
013316 


020504 
001401 







TER ERROR 

013320 
TER ERROR 

013320 104003 

TER ERROR 

013322 052713 
013326 011304 

013330 022704 
013334 001403 
013336 012705 



TER ERROR 

013342 
TER ERROR 

013342 104003 

TER ERROR 

013344 104400 
000004 
000002 
177773 
177773 



000002 

177777 
177777 



013346 



CLRBIT--BITX-1 
BITCLR-CLRBIT 

REGTS7 t/DHBCR/.\BITX.t/BREAK CONTROL/ . \8ITC. 177777 , \BITCLR 
: BREAK CONTROL REGISTER DATA TEST 

iSET ALL REAO/URITE BITS IN BREAK CONTROL REGISTER TO IS 
J CLEAR BIT 1 

: VERIFY THAT BIT 1 UAS CLEARED 
{RESTORE BIT 1 



J VERIFY THAT BIT 1 UAS SET 



TS \XN,4000.2* 
T126: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF ION 
II: 



«340,PS 
«4000,IC0UNT 
«2«. ESCAPE 

♦.FREEZl 



vBITll.SDHSCR 
DHBCR.R3 
♦177775, R5 

♦177777. (R3) 

♦2.(R3) 
(R3).R4 
BIC ♦.R4 
R5.R4 
i* 

<OHBCR>.<OHLPR>, 
<DHBCR>.<OHBCR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

J SET UP TO LOOP WITH DATA 



sMASTER CLEAR INTERFACE 

:SET UP POINTER TO BREAK CONTROL 
;(R5)-EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 177775 
:SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
:CLEAR BIT 1 

sGET CONTENTS OF BREAK CONTROL 
; CLEAR UNWANTED BITS 
:WAS BIT 1 CLEARED 



EMT 



BIS 
MOV 

.IIF NB <>, 
CMP 
BEQ 
MOV 

.IIF IDN 
.IIF IDN 



EMT 



.IIF IDN 



<DHBCR>.<OHSSR>. 

♦2.(R3} 

(R3),R4 

BIC ♦,R4 

♦1 77777, R4 

21 

♦177777. R5 
<DHBCR>.<OHLPR>. 
<DHBCR>.<OHBCR>, 
3 

<DHBCR>,<DHSSR>, 



HLT 
HLT 

HLT 
J SET BIT 1 



2 
3 



:BREAK CONTROL REGIS 
i BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



; CLEAR UNWANTED BITS 
iUAS BIT 1 SET 

:(R5)-EXPECTED DATA IN 

;BREAK CWTROL REGISTER. 177777 



HLT 
HLT 

HLT 



2 
3 



sBREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

.-BRiTAK CONTROL REGIS 



2»: SCOPE 

BITX-BITX»BITX 

BITC-BITC»1 

CLRBIT»-BITX-1 

BITCLR-CLRBIT 

REGTS7 t/DHBCR/.\BITX.t/BREAK CONTROL/, \BITC. 177777. \BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 2 

VERIFY THAT BIT 2 WAS CLEARED 
RESTORE BIT 2 
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: VERIFY THAT BIT 2 UAS SET 



013346 

013346 012767 000340 164422 

013354 012767 004000 004474 

013362 012767 013450 004462 



000130 

013370 012777 004000 004412 

013376 016703 004422 

013402 012705 177773 

013406 012713 177777 

013412 042713 000004 

013416 011304 

013420 020504 

013422 001401 

TER ERROR 

013424 
TER ERROR 

013424 104003 

TER ERROR 

013426 052713 000004 

013432 011304 

013434 022704 177777 

013440 001403 

013442 012705 177777 



TER ERROR 

C13446 
TER ERROR 

013446 104003 

TER ERROR 

013450 104400 
000010 
000003 
177767 
177767 

013452 



013452 

013452 012767 000340 164316 

013460 012767 004000 004370 

013466 012767 013554 004356 



TS SXN. 4000.2* 
T127: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN^l 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF ION 
1*: 



#340. PS 
«4000.IC0UNT 
02 ». ESCAPE 

♦.FREEZl 



MIT11.8DHSCR 
0HBCR.R3 
♦177773, R5 

#177777, (R3) 

#4,(R3) 
(R3).R4 
BIC #.R4 
R5.R4 
1) 

<DH6CR>.<0HLPR>. 
<OHBCR>,<OHBCR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 
(R5)"EXPECTED DATA 
IN BREAK CONTROL REGISTER. 177773 
SET ALL READ/WRITE BITS 
IN BREAK CONTROL REGISTER 
i CLEAR BIT 2 

tGET CONTENTS OF BREAK CONTROL 
{CLEAR UNWANTED BITS 
iUAS BIT 2 CLEARED 



EMT 



BIS 
MOV 
.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



.IIF ION 



EMT 



<0H6CR>,<DHSSR>, 

•4.(R3) 

(R3).R4 

BIC •.R4 

#1 77777. R4 

2t 

•177777, R5 
<0H8CR>.<0HLPR>, 
<0HBCR>.<0HBCR>. 
3 

<OHBCR>.<OHSSR>. 



HLT 
HLT 

HLT 
iSET BIT 2 



2 
3 



sBREAK CONTROL REGIS 
{BREAK CONTROL REGIS 

iBREAK CONTROL REGIS 



: CLEAR IMUANTED BITS 
(WAS BIT 2 SET 

I (R5) -EXPECTED DATA Ih 
! BREAK CONTROL REGISTER. 177777 



HLT 
HLT 

HLT 



2 
3 



sBREAK CONTROL REGIS 
:BREAK CONTRX REGIS 

:BREAK CQNTRX REGIS 



2*: SCOPE 

BITX-BITX*8ITX 

BITC-BITC*! 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/OHeCR/,VBITX.t/BREAK CONTROL/. VBITC. 177777, \BITCLR 
iBREAK CONTROL REGISTER DATA TEST 

:SET ALL REAO/URITE BITS IN BREAK CONTROL REGISTER TO IS 
I CLEAR BIT 3 

(VERIFY THAT BIT 3 UAS CLEAREi) 
(RESTORE BIT 3 



(VERIFY THAT BIT 3 W^j SET 



TS \XN, 4000.2* 
T130: MOV 
MOV 
MOV 
.IF NB <> 
HOV 

.ENDC 



♦340. PS 
♦4OOO.IC0UNT 
♦2 «. ESCAPE 

♦.FREEZl 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 
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000131 




XN-XN»1 


A1 XA 




0043U6 




C1SS02 


016703 


004316 


HOV 


01SS06 


012705 


177767 


HOV 


01S512 


012713 


177777 


MOV 


013516 


042713 


000010 


BIC 


015522 


011304 




MOV 








•IIF NB <>. 


013524 


020504 




CMP 


013526 


001401 




BEQ 



TER ERROR 

013530 
TER ERROR 

013530 

TER ERROR 

013532 
013536 

013540 
013544 
013546 



104003 



052713 000010 
011304 

022704 1777/7 
001403 

012705 177777 



TER ERROR 

013552 
TER ERROR 

013552 104003 

TER ERROR 

013554 104400 

000020 
000004 
177757 
177757 

013556 



013556 
013556 
013564 
013572 



013600 
013606 
013612 



012767 
012767 
012767 



000132 
012777 
016703 
012705 



000340 164212 
004000 004264 
013660 004252 



004000 004202 

004212 

177757 



013616 012713 



013622 
013626 



042713 
011304 



177777 
000020 



•IIP ION 
.IIF IDN 

I 

.IIF ION 
It: 



EMT 



BIS 
MOV 

IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF IDN 
.IIF IDN 



EMT 



.IIF IDN 



«6IT11.SDHSCR 
0HBCR.R3 
♦177767. R5 

♦177777. (R3) 

•10. (R3) 

(R3).R4 

BIC ♦.R4 

R5.R4 

1» 

<OHBCR>.<DHLPR>, 
<DHBCR>.<DHeCR>. 



<DHBCR>.<DHSSR>. 

*10.(R3) 

(R3).R4 

BIC •.R4 

•177777. R4 

2$ 

•177777. R5 
<OHBCR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 
3 

<DHBCR>.<DHSSR>. 



tMASTER CLEAR INTERFACE 

sSET UP POINTER TO BREAK CONTROL 
j(R5)-EXPECTED DATA 
jIN BREAK CONTROL REGISTER. 177767 
I SET ALL READ/WRITE BITS 
ilN BREAK CONTROL REGISTER 
;CLEAR BIT 3 

sGET CONTENTS OF BREAK CONTROL 
J CLEAR UNWANTED BITS 
:UAS BIT 3 CLEARED 



HLT 
HLT 



2 
3 



HLT 4 

jSET BIT 3 

; CLEAR UNWANTED BITS 
:HAS BIT 3 SET 

;(R5)»EXPECTE0 DATA IN 

J BREAK CONTROL REGISTER. 177777 



;BREAK CONTROL REGIS 
sBREmK CONTROL REGIS 

:BREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2 
3 



:eREAK CONTROL REGIS 
:3REAK CONTROL REGIS 

:BREAK CONTROL RZGIS 



2%: SCOPE 

BITX«BITX*BITX 

BITC-BITC*! 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REG137 VDHBCR/.yBITX. ♦/BREAK CONTROL /.\BITC. 177777. \BITCLR 
i BREAK CONTROL REGISTER DATA TEST 

sSET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 
(CLEAR BIT 4 

: VERIFY THAT BIT 4 WAS CLEARED 
iRESTORE BIT 4 



(VERIFY THAT BIT 4 WAS SET 



TS \XN,4000.2I 
TlSl: nOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 

MOV 



•340. PS 

♦4000.IC0UNT 
•2*. ESCAPE 

♦.FREEZl 



•eiTll.SOHSCR 
DHBCR,R3 
♦177757. R5 

♦177777. (R3) 

♦20.CR3) 
(R3),R4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP POINTER TO BREAK CONTROL 
5fR5)-EXPECTED DATA 
(IN BREAK CONTROL REGISTER. 177757 
(SET ALL READ/WRITE BITS 
I IN BREAK CONTROL REGISTER 
(CLEAR BIT 4 

iGET CONTENTS OF BREAK CONTROL 
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013630 020504 

013632 001401 

TLR ERROR 

013634 
TER ERROR 

013634 104003 

TER ERROR 

013636 052713 000020 

013642 011304 

013644 022704 177777 

013650 001403 

013652 012705 l-'7777 



TER ERROR 

013656 
TER ERROR 

013656 104003 

TER ERROR 

013660 104400 
000040 
000005 
177737 
177737 

013662 



013662 
013662 
013670 
013676 



013704 
013712 
013716 



012767 
012767 
012767 



000133 
012777 
016703 
012705 



000340 164106 
004000 004160 
01376-: 004146 



004000 004076 

004106 

177737 



013722 012713 



013726 
013732 

013734 
013736 

ITER ES^ROR 
013740 
, TER ERROR 
I 013740 

L TFB FflBfie 



042713 
011304 

020504 
001401 



104003 



177777 
000040 



.IIF NB <>. 

CMP 
BEQ 

•IIF ION 



.IIF ION 



EMT 

.IIF ION 

1): BIS 
MOV 

.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



.IIF ION 



EMT 



BIC #.RA 

R5.R4 

It 

<DHBCR>.<DHLPR>, 
<DHBCR>.<DHBCR>. 



<DHBCR>.<OHSSR>. 
♦20. (R3) 

(r<3).R4 

BIC «,R4 
♦177777. R4 
2* 

♦177777, R5 
<OHBCR>.<DHLPR>, 
<0HBCR>.<0H6CR>, 
3 

<OHBCR>.<OHSSR>. 



sCLEAR UNUAN"^ED BITS 
sUAS BIT 4 CLEARED 



HLT 
HLT 



2 
3 



HLT 4 
iSET BIT 4 

sCLEAR UNWANTED BITS 
:UAS BIT 4 SET 

i(R5)»EXPECTED DATA IN 

sBREAK CONTROL REGISTER. 177777 



{BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

i BREAK CC^TROL REGIS 



HLT 
HLT 

HLT 



2 
3 



;BREAK C0N';R0L REGIS 
iBREAK CONTROL REGIS 

sBREAK CONTROL REGIS 



2» : SCOPE 

BITX-BITX*BITX 

BITC-BITC*1 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/OHBCR/.\BITX.t /BREAK CONTROL /.\BITC.1777"»7.\8ITCLR 
:BREAK CONTROL REGISTER DATA TEST 

I SET ALL REAO/URITE BITS IN BREAK CONTROL REGISTER TO IS 
i CLEAR BIT 5 

(VERIFY THAT BIT S UAS CLEARED 
{RESTORE BIT 5 



{VERIFY THAT BIT 5 UAS SET 



TS \XN.4000.2> 
T132: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN*1 

MOV 
WV 
MOV 

MOV 

BIC 
MOV 

•IIF NB <>, 
CMf- 
BEQ 

.IIF ION 



,IIF ION 



•340. PS 
MOOO.ICOUNT 
*2t. ESCAPE 

•.FREEZl 



•BIT11.0DHSCR 
0HBCR.R3 
♦177737. R5 

♦177777. CR3) 

♦40. (R3) 

CR3).R4 

BIC «.R4 

RS.R4 

1$ 

<DHBCR>,<DHLPR>. 
<OHBCR>.<DHBCR>, 



{DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO ICXT TEST 

-.SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

iSET UP POINTER TO BREAK CCmTROL 
i(R5)-EXPECTED DATA 
:IN BREAK CONTROL REGISTER. 177737 
iSET ALL READ/URITE BITS 
iIN BREAK CONTROL REGISTER 
CLEAR 611 5 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 5 CLEARED 



.IIF ION 



EMT 



<DHBCR> , <DHSSR>. 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
jBREAK CONTROL REGIS 

sBREAK CONTROL REGIS 



013742 
013746 



052713 
011304 



000040 



1$: 



BIS 
MOV 



♦40. (R3) 
(R3).R4 



tSET BIT 5 
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013750 022704 177777 

013754 001403 

013756 012705 177777 



TER ERROR 

013-'62 
TER ERROR 

013762 104003 

TER ERROR 

013764 104400 
000100 
000006 
177677 
177677 

013766 



013766 
013766 
013774 
0140C2 



014010 
014016 
014022 



012767 
012767 
012767 



000134 
012777 
016703 
012705 



000340 164002 
004000 004054 
C14070 004042 



004000 003772 

004002 

177677 



014026 012713 



014032 
014036 

014040 
014042 

TER ERROR 

014044 
TER ERROR 

014044 

TER ERROR 

014046 
014052 

014054 
014060 
014062 



TER ERROR 

014066 
TER ERROR 



177777 
000100 



042713 
011304 

020504 
001401 



104003 



052713 000100 
011304 

022704 177777 
001403 

012705 177777 



loaoQ? 



.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



.IIF ION 



EMT 



BIC «.R4 
♦177777, R4 
2) 

♦177777, R5 
<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 
3 

<DHBCR>,<DHSSR>. 



(CLEAR UNWANTED BITS 
iUAS BIT 5 SET 

j(R5)«EXPECTED DATA IN 
(BREAK CONTROL REGISTER, 177777 



HLT 
HLT 

HLT 



2 
3 



(BREAK CONTROL REGIS 
:BRrAK CONTROL REGIS 

(BREAK CONTROL REGIS 



2): SCOPE 

BITX-BITX*BITX 

BITC-BITC*1 

CLRBIT--BITX-1 

BITCLR>CLRBIT 

REGTS7 t/DHBrq/.VBITX.t /BREAK CONTROL/, \BITC. 177777, \BITCLR 
(BREAK CONTROL REGISTER DATA TEST 

(SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO IS 
t CLEAR BIT 6 

(VERIFY THAT BIT 6 WAS CLEARED 
(RESTORE BIT 6 



(VERIFY THAT BIT 6 WAS SET 



TS VXN.4000.2$ 
T133: nOV 

my 

MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

nov 

BIC 

MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

I 

.IIF IDN 
1»: 



EMT 



BIS 
MOV 
IIF NB <>. 

CMP 
BEQ 
MOV 



,IIF ION 
.IIF ION 



♦340. PS 
•40OO.IC0UNT 
«2$. ESCAPE 

♦.FREEZl 



♦6IT11.9DHSCR 
0HBCR.R3 
♦177677. R5 

♦177777. (R3) 

♦100. (R3) 

(R3),R4 

BIC ♦.RA 

RS.R4 

1» 

<DHBCR>.<OHLPR>. 
<OHBCR>.<DHBCR>. 



<DHBCR>.«DHSSR>. 

♦100. (R3) 

(R3).R4 

BIC ♦.R4 

♦177777, R4 

2t 

♦177777. R5 

<DH8CR>.<DHLPR>. 

<0HBCR>,<DH6CR>. 



(DISABLE ALL INTEPROPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER aEAR INTERFACE 

(SET [JP POINTER TO BREAK CQNTRX 
(CR5)«EXPECTED DATA 
(IN BREAK CONTROL REGISTER. 177677 
(SET ALL REAO/yRITE BITS 
I IN BREAK CONTROL REGISTER 
.CLEAR BIT 6 

(GET CONTENTS OF BREAK CONTRX 
(CLEAR UNUANTEO BITS 
iUAS BIT 6 CLEARED 



HLT 
HLT 



2 
3 



sBREAK CONTROL 
(BREAK CONTRX 



REGIS 
REGIS 



HLT 4 

(SET BIT 6 

(CLEAR UNUANTEO BITS 
jUAS BIT 6 SET 

(rR5)-EXPECTE0 DATA IN 

(BREAK CONTROL REGISTER. 177777 

HLT 2 

HLT 3 



(BREAK CONTROL REGIS 



(BREAK CONTROL REGIS 
(BREAK CONTROL REGIS 



TER ERROR 



.TIF IDN 



<OHBCR>,<OHSSR>. 



HLT 



(BREAK CONTROL REGIS 
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014070 104400 
000200 
000007 
17-'577 
177577 

014072 



014072 



014072 
014100 
014106 


012767 
012767 
012767 


000340 
004000 
014174 


163676 
003750 
003736 


014114 
014122 
014126 


000135 
012777 
016703 
012705 


004000 
003676 
177577 


003666 


014132 


012713 


177777 




014136 
014142 


042713 
011304 


000200 




014144 
014146 


020504 
001401 







TER ERROR 

014150 
TER ERROR 

014150 

TER ERROR 

014152 
014156 

014160 
014164 
014166 



TER ERROR 

014172 
TER ERROR 

014172 

TER ERROR 

014174 



014176 



104003 



052713 
011304 

022704 
001403 
012705 



104003 



104400 
000400 
000010 
177377 
177377 



000200 

177777 
177777 



2» : SCOPE 

BITX-BITX»BITX 

BITC-BirC»l 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/OHBCR/.\BITX,t/BREAK CONTROL/. \BITC, 177777, \BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 7 

VERIFY THAT BIT 7 WAS CLEARED 
RESTORE BIT 7 



(VERIFY THAT BIT 7 MAS SET 



TS \XN.4000,2$ 
T134: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN«XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF ION 



.IIF ION 

.IIF ION 
1»: 



EMT 



BIS 
MOV 
.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



EMT 



.IIF ION 



«340,PS 
«4000.ICOUNT 
*2$. ESCAPE 

#.FREEZ1 



«BIT11,80HSCR 
0HBCR.R3 
♦177577. R5 

♦177777, (R3) 

♦200. (R3) 

(R3).R4 

BIC ♦.R4 

R5,R4 

1* 

<OHBCR>,<OHLPR>. 
<OHBCR>.<OHBCR>. 



<OHBCR>.<DHSSR>, 

♦200. (R3} 

CR3).R4 

BIC ♦.R4 

♦177777. R4 

21 

♦177777. R5 
<DHBCR>.<OHLPR>. 
<DHBCR>,<OHBCR>. 
3 

<OHBCR>,<OHSSR>. 



; DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

iSET UP POINTER TO BREAK CONTROL 
(R5)»EXPECTE0 DATA 
IN BREAK CONTROL REGISTER. 177577 
SET ALL READ/URITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 7 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 7 CLEARED 



HLT 
HLT 



2 
3 



:BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 



HLT 4 

;SET BIT 7 

s CLEAR UfWANTED BITS 
iUAS BIT 7 SET 

s(R5)-EXPECTED DATA IN 

sBREAK CONTROL REGISTER. 177777 

HLT 2 

HLT 3 
HLT 4 



•.BREAK CONTROL REGIS 



s BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

.•BREAK CONTROL REGIS 



2»: SCOPE 

BITX»BITX*BITX 

BITC-BITC*! 

CLRBIT-'BITX-l 

BITCLR-CLRBIT 

REGTS7 t/OHBCR/.\BITX.t/BREAK CONTROL/, \BITC, 177777, \BITCLR 
(BREAK CONTROL REGISTER DATA TEST 

(SET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 



CZOHA-0 MACRO V04.00 27-JUN-85 12:46:01 PAGE 17-74 



3EQ 96 



014176 

014176 012767 000340 163572 

014204 012767 004000 003644 

014212 012767 014300 003632 



000136 

014220 012777 004000 003562 

014226 016703 003572 

014232 012705 177377 

014236 012713 177777 

014242 042713 000400 

014246 011304 



014250 
014252 

TER ERROR 

014254 
TER ERROR 

014254 

TER ERROR 

014256 
014262 

014264 
014270 
014272 



020504 
001401 



104003 



052713 000400 
011304 

022704 177777 
001403 

012705 177777 



TER ERROR 

014276 
TER ERROR 

014276 104003 

TER ERROR 

014300 104400 
001000 
000011 
176777 
176777 

014302 



014302 

014302 012767 000340 163466 

014310 0J2767 004000 003540 

014316 012767 014404 003526 



; CLEAR BIT 10 

(VERIFY THAT BIT 10 WAS CLEARED 

s RESTORE BIT 10 

I VERIFY THAT BIT 10 WAS SET 



TS \XN. 4000.2) 
T135: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIG 
MOV 

.IIF NB <>, 
CMP 
6EQ 

•IIF IDN 



.IIF ION 



EMT 

.IIF ION 

It: BIS 
MOV 

.IIF NB <>, 
CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



.IIF ION 



EMT 



«340,PS 
MOOO.ICOUNT 
«2$. ESCAPE 

♦.FREEZl 



«BIT11,80HSCR 
0HBCR.R3 
•177377, R5 

♦177777. (R3) 

♦400. (R3) 

(R3).R4 

BIC «.R4 

R5.R4 

1* 

<DHBCR>.<OHLPR>. 
<OHBCR>.<OHBCR>. 



<OHBCR>.<OHSSR>. 

M00.(R3) 

(R3).R4 

BIC ».R4 

♦177777. R4 

2t 

♦177777. R5 
<OHBCR>.<OHLPR>. 
cOHBCR>.<OHBCR>. 
3 

<OHBCR>.<0)«SR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTED DATA 
IN BREAK CONTROL REGISTER. 177377 
SET ALL REAO/WTE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 10 

GET CONTENTS OF BREAK CONTRX 
CLEAR UNUANTEO BITS 
WAS BIT 10 CLEARED 



HLT 
HLT 



2 
3 



HLT 4 

:SET BIT 10 

(CLEAR UNUANTEO BITS 
(WAS BIT 10 SET 

i(RS)«EXPECTED DATA IN 

(BRFAK CONTftOL REfilSTER. 177777 

HLT 2 



(BREAK CONTROL REGIS 
(BREAK CONTROL REGIS 

(BREAK CONTROL REGIS 



HLT 
HLT 



S 
4 



(BREAK CONTROL REGIS 
:BREAK CONTROL REGxS 

sBREAK CONTROL REGIS 



2*: SCOPE 
BITX-BITX»BITX 
BITC-B1TC»1 
CLRBIT— BITX-1 
BITCLR-CLRBIT 

REGTS7 t/OHBCR/.VBITX.t /BREAK CONTROL/. \BXTC.177777.\BITCLR 
(BREAK CONTROL REGISTER DATA TEST 

(SET ALL REAO/URITE BITS IN BREAK CONTROL REGISTER TO IS 
(CLEAR BIT 11 

(VERIFY THAT BIT 11 WAS CLEARED 

(RESTORE BIT II 

(VERIFY THAT BIT 11 WAS SET 



TS \XN.4000.2I 
T136: MOV 
MOV 
MOV 



♦340, PS 
♦4000,IC0UNT 
♦21. ESCAPE 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 
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SEQ 97 



000137 

014324 012777 004000 003456 

014332 016703 003466 

014336 012705 176777 

014342 012713 177777 



014346 
014352 

014354 
014356 

TER EKft&R 

014360 
TER ERROR 

014360 

TER ERROR 

014362 
014366 

014370 
014374 
014376 



042713 001000 
011304 

020504 
001401 



104003 



052713 001000 
011304 

022704 177777 
001403 

012705 177777 



TER ERROR 

014402 
TER ERROR 

014402 104003 

TER ERROR 

014404 104400 

002000 
000012 
175777 
175777 

014406 



014406 
014406 
014414 
014422 



014430 
014436 
014442 



012767 
012767 
012767 



000140 
012777 
016703 
012705 



000340 163362 
004000 003434 
014510 003422 



004000 003352 
003362 



175777 



.IF NB <> 
MOV 

.ENOC 
XN>XN»1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>, 
CMP 
BEQ 

.IIF ION 
.IIF ION 



.IIF ION 



EMT 



1« 



BIS 
MOV 
IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF ION 
.IIF ION 



.IIF ION 



EMT 



♦.FREEZl 



«BIT11.80HSCR 
0HBCR.R3 
♦176777, R5 

♦177777. (R3) 

♦1000. (R3) 

(R3),R4 

BIC ♦.R4 

R5.R4 

1) 

<0HBCR>.<OHLPR>. 
<DHBCR>,<OHBCR>, 



<0HBCR>,<DHSSR>. 

♦1000. (R3) 

(R3).R4 

BIC ♦.R4 

♦1 77777. R4 

21 

♦177777. R5 
<DHBCR>.<DHLPR>, 
<DHBCR>,<DHBCR>. 
3 

<DHBCR>,<DKSSR>. 



:SET UP TO LOOP WITH DATA 



jMASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 
{R5)-EXPECTED DATA 
IN BREAK CONTROL REGISTER, 176777 
SET ALL READ/WRITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 11 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
WAS BIT 11 CLEARED 



HLT 
HLT 



2 
3 



HLT 4 

:SET BIT 11 

s CLEAR UNWANTED BITS 
:WAS BIT 11 SET 

:(R5) -EXPECTED DATA IN 
;BREAK CONTROL REGISTER. 177777 



: BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

sBREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2 
3 



: BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

:BREAK CONTROL REGIS 



2« ; SCOPE 

BITX-BITX»BITX 

BITC«BITC*1 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/DHBCR',\BITX.t /BREAK CONTROL/. \BITC. 177777. \BITCLR 
! BREAK TNTROL REGISTER DATA TEST 

:SET AL READ/WRITE BITS IN BREAK CONTROL REGISTER TO IS 
; CLEAR BIT 12 

I VERIFY THAT BIT 12 WAS CLEARED 

.-RESTORE BIT 12 

{VERIFY THAT BIT 12 WAS SET 



014446 012713 177777 



TS \XN.4000.2) 
T137: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN»1 

MOV 
MOV 
MOV 

MOV 



♦340. PS 
♦4000.IC0UNT 
•2), ESCAPE 

♦.FREEZl 



♦BIT11.80HSCR 
0HBCR,R3 
♦175777. R5 

♦177777. (R3) 



{DISABLE ALL INTERRUPTS 
iSET UP FOP 4000 ITERATICMS 
(SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

I SET UP POINTER TO BREAK CONTROL 
:(R5)-EXPECTED DATA 
tIN BREAK CONTROL REGISTER. 175777 
{SET ALL REAO/WRITF BITS 
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SEQ 98 



014452 
014456 

014460 
014462 

TER ERROR 

014464 
TER ERROR 

014464 

TER ERROR 

014466 
014472 

014474 
014500 
014502 



042713 002000 
011304 

020504 
001401 



104003 



052713 002000 
011304 

022704 177777 
001403 

012705 177777 



TER ERROR 

014506 
TER ERROR 

014506 104003 

TER ERROR 

014510 104400 
004000 
000013 
173777 
173777 

014512 



014512 
014512 
014520 
014526 



014534 
014542 
014546 



012767 
012767 
012767 



000141 
012777 
016703 
012705 



000340 163256 
004000 003330 
014614 003316 



004000 003246 

003256 

173777 



014552 012713 

014556 042713 

014562 011304 

014564 020504 

014566 001401 

TER ERROR 

014570 

I. TFB FBBnB 



177777 
004000 



BIC 
MOV 

.IIF NB o, 
CMP 
BEQ 

.IIF ION 



.IIF IDN 



EMT 

.IIF IDN 
1$: BIS 

••ov 

.IIF NB 

CMP 
BEQ 
MOV 

,IIF IDN 
.IIF IDN 



.IIF IDN 



EMT 



#2000. (R3) 

(R3),R4 

BIC «,R4 

R5,R4 

1* 

<DHBCR>,<DHLPR>, 
<DHBCR>.<DHBCR>. 



<DHBCR>,<DHSSR>, 

«2000.(R3) 

(R3}.R4 

BIC «,R4 

#177777, R4 

2* 

#177777. R5 
<OHBCR>.<DHLPR>, 
<DHBCR>.<DH8CR>. 
3 

<DHBCR>,<DHSSR>, 



IN BREAK CONTROL REGISTER 
CLEAR BIT 12 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 12 CLEARED 



HLT 
HLT 



HLT 4 

}SET BIT 12 

i CLEAR UNWANTED BITS 
iUAS BIT 12 SET 

!(R5)-EXPECTED DATA IN 
jBREAK CONTROL REGISTER. 177777 



jBREAK CONTROL REGIS 
i BREAK CONTROL REGIS 

;BREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2 
3 



:BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 

:6REAK CONTROL REGIS 



2»: SCOPE 

BITX-BITX*BITX 

BITC«BITC*1 

CLRBIT--BITX-1 

BITCLR'CLRBIT 

REGTS7 t/DHBCR/.\BITX.t/BREAK CONTROL/. \BITC. 177777. \BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 13 

VERIFY THAT BIT 13 UAS CLEARED 
RESTORE BIT 13 



VERIFY THAT BIT 13 UAS SET 



TS \XN.4000,2$ 
T140: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 
.IIF IDN 



#340. PS 
♦4000,IC0UNT 
#2 (.ESCAPE 

*,FREEZ1 



«BIT11.SDHSCR 
DHBCR.R3 
#173777, R5 

#177777. (R3) 

#4000. (R31 

(R3),R4 

BIC #.R4 

R5,R4 

1* 

<DHflCR>,<DHLPR>, 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 

■•SET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTED DATA 
IN BREAK CONTROL REGISTER, 173777 
SET ALL READ/URITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 13 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 13 CLEARED 



<DHBCR>,<DHBCR>, 



HLT 
HLT 



2 
3 



i BREAK CONTROL 
{BREAK CONTROL 



REGIS 
REGIS 



014570 104003 



EMT 
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SEQ 99 



TER ERROR 

014572 052713 004000 

014576 011304 

014600 022704 177777 

014604 001403 

014606 012705 177777 



TER ERROR 

014612 
TER ERROR 

014612 104003 

TER ERROR 

014614 104400 



014616 



014616 



TER ERROR 

014674 
TER ERROR 

014674 

TER ERROR 

014676 
014702 

014704 
014710 
014712 



010000 
000014 
167777 
167777 



014616 
014624 
014632 


012767 
012767 
012767 


000340 
004000 
014720 


163152 
003224 
003212 


014640 
014646 
014652 


000142 
012777 
016703 
012705 


004000 
003152 
167777 


003142 


014656 


012713 


177777 




014662 
014666 


042713 
011304 


010000 




014670 
014672 


020504 
001401 







104003 



052713 010000 
011304 

022704 177777 
001403 

012705 177777 



•IIF ION 

1$: BIS 
MOV 

•IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF IDN 
.IIF ION 



,IIF IDN 



EMT 



<DHBCR>.<DHSSR>. 

#4000. CR3) 

CR3).R4 

BIC »,R4 

*1 77777. R4 

21 

#177777. R5 
<OHBCR>. <DHLPR>. 
<DHBCR>.<DHBCR>. 
3 

<OHBCR>.<OHSSR>, 



HLT 4 

;SET BIT 13 

: CLEAR UNUANTED BITS 
iWAS BIT 13 SET 

!(R5)«EXPECTE0 DATA IN 
;BREAK CONTROL REGISTER, 177777 



i BREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2 
3 



(BREAK CONTROL REGIS 
•.BREAK CONTROL REGIS 

i BREAK CONTROL REGIS 



2»: SCOPE 

BITX-BITX*BITX 

BITC»BITC*1 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

RE6TS7 t/DHBCR/.\BITX.t/BREAK CONTROL/ . \BITC. 177777 .\BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL REAO/URITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 14 

VERIFY THAT BIT 14 WAS CLEARED 
RESTORE BIT 14 



VERIFY THAT BIT 14 WAS SET 



TS \XN, 4000.2* 
T141: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENDC 
XN-XN«1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>, 
CMP 
BEQ 

.IIF IDN 



.IIF IDN 

! 

.IIF IDN 
ii: 



EMT 



BIS 
MOV 
IIF NB <>, 
CMP 
BEQ 
MOV 



♦340. PS 
♦4000,ICOUNT 
♦2*. ESCAPE 

*.FREEZ1 



«BIT11.SDHSCR 
DHBCR.R3 
#167777. R5 

*177777.(R3) 

«10000.(R3) 

(R3),R4 

BIC «.R4 

R5.R4 

1> 

<DHBCR>,<DHLPR>, 
<DHBCR>.<DHBCR>. 



<DHBCR>.<DHSSR>. 

#10000. (R3) 

(R3).R4 

BIC #.R4 

#177777. R4 

2$ 

#177777. R5 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



;MASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTED DATA 
IN BREAK CONTROL REGISTER. 167777 
SET ALL READ/WRITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 14 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNUANTED BITS 
UAS BIT 14 CLEARED 



HLT 
HLT 



2 
3 



■ iir IBM 



TER ERROR 



»D I IOCn«. » 0 II LPR »7- 



HLT 4 

{SET BIT 14 

: CLEAR UNUANTED BITS 
iUAS BIT 14 SET 

:(R5)«EXPECTED DATA IN 

; BREAK CONTROL REGISTER. 177777 

H L T i 



sBREAK CONTROL REGIS 
i BREAK CONTROL REGIS 

(BREAK CONTROL REGIS 



;BHtAK lUW I HUL HLblb 
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SEQ 100 



014716 
TER ERROR 

014716 104003 

TER ERROR 

014720 104400 
020000 
00«015 
157777 
157777 

014722 



,IIF ION 



014722 
014722 
014730 
014736 



014744 
014752 
014756 



012767 
012767 
012767 



000143 
012777 
016703 
012705 



014762 012713 



014766 
014772 

014774 
014776 

TER ERROR 

015000 
TER ERROR 

015000 

TER ERROR 

015002 
015006 

015010 
015014 
015016 



TER ERROR 

015022 
TER ERROR 

015022 

TER ERROR 

015024 



042713 
011304 

020504 
001401 



104003 



052713 
011304 

022704 
001403 
012705 



104003 



104400 
040000 
000016 
137777 
H7777 



000340 163C46 
004000 003120 
015024 003106 



004000 003036 

003046 

157777 



177777 
020000 



020000 

177777 
177777 



EnT 



.IIF IDN 



<DHBCR>.<OHBCR>. 



<0HBCR>.<0HSSR>. 



HLT 
KH.T 



sBREAK CONTROL REGIS 
: BREAK CONTROL REGIS 



2» : SCOPE 

BITX-BITX*BITX 

BITC=BITC*1 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/OHBCR/,\BITX.t /BREAK CONTROL/ . \BITC. 177777 .\BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 15 

VERIFY THAT BIT 15 WAS CLEARED 
RESTORE BIT 15 



VERIFY THAT BIT 15 WAS SET 



TS \XN.4000.2* 
T142: HOV 
MOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 



,IIF IDN 

I 

.IIF IDN 
1*: 



EMT 



BIS 
MOV 
IIF NB <>. 

CMP 
BEQ 
MOV 



.IIF IDN 
.IIF IDN 



EMT 

.IIF IDN 

2$ : SCOPE 
BITX-BITX+BITX 
BITC'BITC*! 
CLRBIT=-BITX 1 

a iTCLn - CLnoiT 



#340. PS 
«4000,ICOUNT 
#2*. ESC APE 

#.FREEZ1 



*BIT11.8DHSCR 
DHBCR.R3 
#157777, R5 

#1 77777. (R3) 

#20000, (R3) 

(R3).R4 

BIC «,R4 

R5.R4 

1» 

<DHBCR>.<DHLPR>. 
<DHBCR>.<DHBCR>. 



<DHBCR>.<0HSSR>, 

#20000, (R3) 

(R3).R4 

BIC #.R4 

#1 77777, R4 

2) 

#177777. R5 

<0HBCR>,<0HLPR>, 

<DHBCR>,<DH6CR>. 

<0HBCR>.<DH£5r<>, 



i DISABLE ALL INTERRUPTS 
iSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



MASTER CLEAR INTERFACE 

sSET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTE0 DATA 
IN BREAK CONTROL REGISTER. 157777 
SET ALL READ/URITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 15 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 



WAS BIT 15 CLEARED 



HLT 
HLT 

HLT 



2 
3 



:BREAK CONTROL REGIS 
: BREAK CONTROL REGIS 

i BREAK CONTROL REGIS 



:SET BIT 15 

i CLEAR UNMANTED BITS 
iUAS BIT 15 SET 

i(R5) -EXPECTED DATA IN 

.-BREAK CONTROL REGISTER, 177777 

W.T 2 

HLT 3 
HLT 4 



{BREAK CONTROL REGIS 
iBREAK CONTROL REGIS 

: BREAK CONTROL REGIS 



015026 



REGTS7 t/DHBCR/.\BITX.t /BREAK CONTROL/. \BITC, 177777, \BITCLR 
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SEQ 101 



015026 

015026 012767 000340 

015034 0U767 004000 

015042 012767 015130 



000144 

015050 012777 004000 

015056 016703 002742 

015062 012705 137777 

015066 012713 177777 

015072 042713 040000 

015076 011304 

015100 020504 

015102 001401 

TER ERROR 

015104 
TER ERROR 

015104 104003 

TER ERROR 

015106 052713 040000 

015112 011304 

015114 022704 177777 

015120 001403 

015122 012705 177777 



TER ERROR 

015126 
TER ERROR 

015126 104003 

1ER ERROR 

015130 104400 
100000 
000017 
077777 
077777 

015132 



162742 
003014 
003002 



002732 



BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 16 

VERIFY THAT BIT 16 UAS CLEARED 

RESTORE BIT 16 

VERIFY THAT BIT 16 UAS SET 



TS \XN,4000.2$ 
T143: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN<XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB <>. 

CMP 
BEQ 

.IIF IDN 



.IIF IDN 

.IIF ION 
1): 



EMI 



BIS 
MOV 
.IIF NB <>. 

CMP 
BEQ 
MOV 

.IIF ION 
.IIF ION 



EMT 



.IIF ION 



0340. PS 
«400a.IC0UNT 
«2», ESCAPE 

♦.FREEZl 



«6IT11,SDHSCR 
DHBCR.R3 
♦137777. R5 

♦177777. (R3) 

♦40000. CR3) 

(R3).R4 

BIC ♦,R4 

R5.R4 

1« 

<0HBCR>.<0HLPR>, 
<0HBCR>,<0H6CR>. 



<DHBCR>.<DHSSR>, 

♦40000. (R3) 

(R3).R4 

BIC ♦.R4 

♦177777. R4 

2* 

♦177777. R5 
<0HBCR>.<DHLPR>, 
<0HBCR>.<0H8CR>. 
3 

<0HBCR>,<0HSSR>, 



: DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



J 3 



MASTER CLEAR INTERFACE 

jSET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTED DATA 
IN BREAK CONTROL REGISTER, 137777 
SET ALL READ/WRITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 16 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNUANTED BITS 
UAS BIT 16 CLEARED 

HLT 2 

HLT 3 



(BREAK CONTROL REGIS 
:BREAK CONTROL REGIS 



HLT 4 

sSET BIT 16 

i CLEAR UNUANTED BITS 
:UAS BIT 16 SET 

i(R5)»EXPECTED DATA IN 
;BREAK CONTROL REGISTER. 177777 



i BREAK CONTROL REGIS 



HLT 
HLT 

HLT 



2 
3 



{BREAK CONTROL REGIS 
(BREAK CONTROL REGIS 

(BREAK CONTROL REGIS 



2»: SCOPE 

BITX«BITX»BITX 

BITC-BITC*1 

CLRBIT--BITX-1 

BITCLR-CLRBIT 

REGTS7 t/DHBCR/.\BITX.t/BREAK CONTROL/. \BITC, 177777, \BITCLR 
BREAK CONTROL REGISTER DATA TEST 

SET ALL READ/URITE BITS IN BREAK CONTROL REGISTER TO IS 
CLEAR BIT 17 

VERIFY THAT BIT 17 UAS CLEARED 
RESTORE BIT 17 
VERIFY THAT BIT 17 UAS SET 



015132 



TS \XN. 4000.2* 
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015132 012767 000340 
015140 012767 004000 
015146 012767 015234 



000145 

015154 012777 004000 

015162 016703 002636 

015166 012705 077777 

015172 012713 177777 



162636 
002710 
002676 



002626 



T144: 



015176 
015202 

015204 
015206 

TER ERROR 

015210 
TER ERR 9 

015210 

TER ERROR 

015212 
015216 

015220 
015224 
015226 



TER ERROR 

015232 
TER ERROR 

015232 

TER ERROR 

015234 



342 
343 
344 
345 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 



042713 100000 
011304 

020504 
001401 



104003 



052713 100000 
011304 

022704 177777 
001403 

012705 177777 



104003 



104400 
000000 
000020 
000000 
000020 
000001 
000000 
000007 



.IF NB 

.ENOC 
XN<XN«1 



nov 
nov 

HOV 

< > 

nov 



ttOV 

nov 
nov 

nov 

BIC 

nov 

NB <>, 

cnp 

BEQ 

.IIF IDN 



.IIF ION 



.IIF IDN 



EnT 



II 



BIS 

nov 

IIF NB <>. 

CMP 
BEQ 
MOV 



,IIF IDN 
.IIF IDN 



,IIF IDN 



EnT 



#340. PS 

«4000.IC0UNT 

»2$.ESCAPE 

♦.FREEZl 



«6IT11,80HSCR 
DHBCR.R3 
♦77777. R5 

♦177777, CR3) 

♦100000. (R3) 

(R3).R4 

BIC ♦,R4 

R5.R4 

1$ 

<DHBCR>.<DHLPR>, 
<DHBCR>.<DHBCR>, 



<DHBCR>,<DHSSR>. 

♦100000. CR3) 

CR3).R4 

BIC ♦,R4 

♦177777. R4 

2» 

♦1 77777, R5 
<DHBCR>.<DHLPR>. 
<DHBCR>,<DHeCR>. 
3 

<DHBCR>,<DHSSR>. 



2): SCOPE 

BITX-BITX»BITX 

BITC-BITC*! 

XBIT-BITX 

CBIT-BITC 

BITX-1 

BITC-0 

.REPT 7 

.NLIST 

CCRBIT" -BITX-1 
CLRBIT-CCRBIT6100077 
BITCLR-CLRBIT 
.LIST 

REGTS7 t/DHSSR/.\BITX.t/SlLO STATUS/, 

.IF EQ BITX-40 

.NLIST 

BITX«100000 

BITC-17 

.LIST 

.IFF 

.NLIST 

BITX-BITX»BITX 

BITC-BITC»1 

.LIST 



SEQ 102 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



: MASTER CLEAR INTERFACE 

:SET UP POINTER TO BREAK CONTROL 
(R5)-EXPECTED DATA 
IN BREAK CONiROL REGISTER, 77777 
SET ALL READ/URITE BITS 
IN BREAK CONTROL REGISTER 
CLEAR BIT 17 

GET CONTENTS OF BREAK CONTROL 
CLEAR UNWANTED BITS 
UAS BIT 17 CLEARED 



HLT 
HLT 



2 
3 



; BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 



HLT 4 

sSET BIT 17 

: CLEAR UNWANTED BITS 
iWAS BIT 17 SET 

:(R5)-EXPECTED DATA IN 
sBREAK CONTROL REGISTER. 177777 



; BREAK CONTROL REGIS 



HLT 
HLT 



I BREAK CONTROL REGIS 
(BREAK CONTROL REGIS 



HLT 



(BREAK CONTROL REGIS 



\BITC. 100077 . CLRBI T , 77700 
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SEQ 103 



364 
365 



015236 



177776 
100076 
100076 



015236 

015236 012767 000340 

015244 012767 004000 

015252 012767 015350 



000146 



162532 
002604 
002572 



R ERROR 
R ERROR 
R ERR09 



R ERROR 
R ERROR 
R ERROR 



015346 

015346 104004 
015350 104400 



.ENUC 
.ENOR 

CCRBIT--BITX-1 

CLRBIT-CCRBIT£100077 

BITCLR-CLRBIT 

REGTS7 t/DHSSR/.\BITX.t/3TL0 STATUS/. \BITC. 100077. CLRBIT. 77700 
SILO STATUS REGISTER DATA TEST 

SET ALL READ/URITE BITS IN SILO STATUS REGISTER TO IS 
CLEAR BIT 0 

VERIFY THAT BIT 0 WAS CLEARED 
RESTORE BIT 0 



VERIFY THAT BIT 0 WAS SET 



015260 


012777 


004000 


002522 


015266 


016703 


002534 




015272 


012705 


100076 




015276 


012713 


100077 




015302 


042713 


000001 




015306 


011304 






015310 


042704 


077700 


.IIF 


015314 


020504 






015316 


001401 












.IIF 








.IIF 


015320 






.IIF 


015320 


104004 






015322 


052713 


000001 


1*: 


015326 


011304 






015330 


042704 


077700 


.IIF 


015334 


022704 


100077 




015340 


001403 






015342 


012705 


100077 





TS \XN.4000.2» 
T145: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

<77700' 
CMP 
BEQ 



EMT 

BIS 

MOV 

<77- 

CMP 

BEQ 

HOV 



.IIF ION 
.IIF ION 
.IIF ION 



EMT 
SCOPE 
BITX-40 



«340,PS 
#4000.ICOUNT 
«2«. ESCAPE 

♦.FREEZl 



#6IT11,SDHSCR 
0HSSR.R3 
♦CLRBIT. R5 

#100077. (R3) 

«1.(R3) 
(R3),R4 

BIC 

R5,R4 
II 

<OHSSR>.<DHLPR>. 
<OHSSR>,<OHBCR>. 
<DHSSR>.<OHSSR>. 
4 

♦l.(R3) 
(R3).R4 

BIC 
'«100077.R4 
2< 

♦100077. R5 

<OHSSR>.<OHLPR>, 

<DHSSR>.<0HBCR>, 

<0HSSR>.<0HSSR>. 

4 



sDISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
8 SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA 



sMASTER CLEAR INTERFACE 

;SET UP POINTER TO SILO STATUS 
i(R5)«EXPECTE0 DATA 
ilN SILO STATUS REGISTER. CLRBIT 
:SET ALL READ/WRITE BITS 
sIN SILO STATUS REGISTER 
: CLEAR BIT 0 

jGET CONTENTS OF SILO STATUS 
♦77700, R4 ;CLEAR UNWANTED BITS 

iWAS BIT 0 CLEARED 



HLT 
HLT 
HLT 

:SET BIT 0 



2 
3 
4 



iSILO STATUS 
tSILO STATUS 
tSILO STATUS 



REGISTE 
REGISTE 
REGISTE 



♦77700, R4 

iWAS BIT 0 SET 



: CLEAR UNWANTED BITS 



!(R5)-EXPECTE0 DATA IN 

J SILO STATUS REGISTER, 100077 

HLT 2 



HLT 
HLT 



3 
4 



jSILO STATUS 
J SILO STATUS 
I SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



000002 
000001 



21: 

.IF EQ 
.NLIST 
BITX-100000 
BITC-17 
.LIST 
.IFF 

BITX-BITX*BITX 
BITC-BITC*1 
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SEQ 104 



015352 



177775 
100075 
100075 



.ENOC 

CCRBIT--BITX-1 

CLRBIT-CCRBIT6100077 

BITCLR-CLRBIT 

REGTS7 t/DHSSR/.\BITX.t/SILO STATUS/. \BITC. 100077. CLRBIT. 77700 
SILO STATUS REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO IS 
CLEAR BIT 1 

VERIFY THAT BIT 1 UAS CLEARED 
RESTORE BIT 1 
VERIFY THAT BIT 1 UAS SET 



015352 

015352 012767 000340 

015360 012767 004000 

015366 012767 015464 



000147 

015374 012777 004000 

015402 016703 002420 

015406 012705 100075 

015412 012713 100077 



015416 
015422 
015424 
015430 
015432 



042713 000002 
011304 

042704 077700 

020504 

001401 



R ERROR 
R ERROR 



R ERROR 



015434 

015434 
015436 
015442 
015444 
015450 
015454 
015456 



104004 

052713 000002 
011304 

042704 077700 
022704 100077 
001403 

012705 100077 



R ERROR 
R ERROR 
R ERROR 



015462 

015462 104004 
013464 1.04400 



000004 
000002 



162416 
002470 
002456 



002406 



TS \XN.4000,2» 
T146: MOV 

MOV 

MOV 
.IF NB <> 

MOV 
.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 

MOV 

BIC 
MOV 

,IIF NB <77700>. 



«340,PS 
«4000.IC0UNT 
»2». ESCAPE 

«.FREEZ1 



0BIT11.90HSCR 

DHSSR.R3 

«CLRBIT.R5 

#100077. (RS) 



*2.(R3) 
(R3).R4 



BIC 



.IIF IDN 
.IIF IDN 
.IIF IDN 



CMP 
BEQ 



R5.R4 
II 

<0HSSR>.<0HLPR>. 
<0HSSR>.<DHBCR>. 
<DHSSR>.<0HSSR>. 



DISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



; MASTER CLEAR INTERFACE 

;SET UP POINTER TO SILO STATUS 
!(R5) -EXPECTED DATA 
:IN SILO STATUS REGISTER. CLRBIT 
(SET ALL REAO/URITE BITS 
ilN SILO STATUS REGISTER 
: CLEAR BIT 1 

iGET CONTENTS OF SILO STATUS 
#77700. R4 : CLEAR UNUANTED BITS 

;UAS BIT 1 CLEARED 



EMT 

1$: BIS 
MOV 

.IIF NB <77700>. 
CMP 
BEQ 
MOV 

.IIF ION 
.IIF IDN 
.IIF ION 



4 

«2.(R3) 
(R3).R4 



HLT 
HLT 
HLT 

I SET BIT 1 



2 
3 
4 



sSILO STATUS 
(SILO STATUS 
sSILO STATUS 



REGISTE 
REGISTE 
REGISTE 



EMT 

2»: SCOPE 
.IF EQ BITX-40 

.NLIST 

BITX-IOOOOO 

BITC-17 

.LIST 

• IFF 

BITX-BITX*BITX 
8ITC-BITC*! 

.ENOC 



BIC 
#100077. R4 
21 

•100077, R5 

<OHSSR>.<DHLPR>. 

<DHSSR>,<OHBCR>. 

<DHSSR>.<OHSSR>. 

4 



#77700. R4 

iUAS BIT 1 SET 



s CLEAR UNUANTED BITS 



i(R5)-EXPECTE0 DATA IN 

tSILO STATUS REGISTER. 100077 

HLT 2 



MLT 
HLT 



3 
4 



tSILO STATUS 
sSILC STATUS 
iSILO STATUS 



REGISTE 
REGISTE 
REGISTE 
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SEQ 105 



015466 



177773 
100073 
100073 



CCRBIT* BITX-1 

CLRBIT-CCRBITC100077 

BITCLR-CLRBIT 

REGTS7 t/OHSSR/.\BITX.t/siLO STATUS/. \BITC, 100077. CLRBIT, 77700 
jSILO STATUS REGISTER DATA TEST 

I SET ALL READ/URITE BITS IN SILO STATUS REGISTER TO IS 
(CLEAR BIT 2 

(VERIFY THAT BIT 2 WAS CLEARED 

(RESTORE BIT 2 

(VERIFY THAT BIT 2 WAS SET 



R ERROR 
R ERROR 
R ERROR 











TS \XN.4000.2$ 






ftl Sltkl 

vie 10 1 






T1 47 . 


nuv 


MXMt\ DC 


015474 


012767 


004000 


002354 




MOV 




015502 


012767 


015600 


002342 




MOV 


♦2$. ESC APE 










.IF NB 


< > 














MOV 


♦.FREEZl 










.ENOC 








000150 






XN-XN*1 






015510 


012777 


004000 


002272 




MOV 


•eiTll.BOHSCR 


015516 


016703 


002304 






MOV 


0HSSR.R3 


015522 


012705 


100073 






MOV 


*CLRBIT,R5 


015526 


012713 


100077 






MOV 


♦100077. (R3) 


015532 


042713 


000004 






BIC 


♦4.(R3) 


015536 


011304 








MOV 


(R3).R4 


015540 


042704 


077700 




.IIF NB 


<77700> 


BIC 


015544 


020504 








CMP 


R5.R4 


015546 


001401 








BEQ 


IS 



015550 

015550 104004 

015552 052713 000004 

015556 011304 

015560 042704 077700 

015564 022704 100077 

015570 001403 

015572 012705 100077 



R ERROR 
R ERROR 
R ERROR 



015576 

015576 104004 
01560C 104400 



000010 
000003 

177767 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 4000 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP POINTER TO SILO STATUS 

s(R5) -EXPECTED DATA 

:IN SILO STATUS REGISTER. CLRBIT 

(SET ALL READ/URITE BITS 

(IN SI'.O STATUS REGISTER 
(CLEAR BIT 2 

(GET CONTENTS OF SILO STATUS 
♦77700. R4 (CLEAR OfWANTEO BITS 

(WAS BIT 2 CLEARED 



.IIF IDN 
.IIF IDN 
.IIF ION 



<DHSSR>.<DHLPR>. 
<DHSSR>,<DHBCR>. 
<DHSSR>,<DHSSR>, 



EMT 

1): BIS 
MOV 

.IIF NB <77700>. 
CMP 
BEQ 
MOV 

.IIF IDN 
.IIF ION 
.IIF ION 



4 

♦4.(R3) 
(R3),R4 



HLT 
HLT 
HLT 

(SET BIT 2 



2 
3 
4 



(SILO STATUS 
(SILO STATUS 
(SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



EMT 

2$ : SCOPE 

.IF EQ BITX-40 

.NLIST 

BITX-IOOOOO 

8ITC»17 

.LIST 

.IFF 

BITX-BITX*BITX 

BITC-BITC»1 

.ENOC 

CCRBIT--BITX-1 



BIC 
♦100077. R4 

♦10007 7. R5 

<DHSSR>.<0HLPR>. 

<0HSSfl>.<0HBCR>. 

<0HSSR>.<0HSSR>. 

4 



♦77700. R4 

iUAS BIT 2 SET 



(CLEAR UNUANTED BITS 



s(R5) -EXPECTED DATA IN 

iSILO STATUS REGISTER. 100077 

HLT 2 



HLT 
HLT 



3 
4 



(SILO STATUS 
(SILO STATUS 
(SILO STATUS 



REGISTE 
REGISTE 
REGISTE 
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SEQ 106 



015602 



100067 
100067 



CLRBIT-CCRBIT6100077 
BITCLR'CLRBIT 

REGTS7 t/DHSSR/.\BITX,t/SILO STATUS/. \BITC. 100077, CLRBIT, 77700 
jSILO STATUS REGISTER DATA TEST 

J SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO IS 
i CLEAR BIT 3 

; VERIFY THAT BIT 3 WAS CLEARED 
{RESTORE BIT 3 



J VERIFY THAT BIT 3 WAS SET 



015602 








TS \XN.4000.2» 




015602 


012767 


000340 


162166 


T150: 


MOV 


♦340. PS 


015610 


012767 


004000 


002240 




MOV 


«4000.IC0UNT 


015616 


012767 


015714 


002226 




MOV 


♦2 ». ESCAPE 










.IF NB 


< > 














nov 


♦.FREEZl 










.ENOC 








000151 






XN-XN*! 






015624 


012777 


004000 


002156 




MOV 


«eiTll.BOHSCR 


015632 


016703 


002170 






MOV 


DHSSR.R3 


015636 


012705 


100067 






MOV 


♦CLRBIT, R5 


015642 


012713 


100077 






MOV 


♦100077. (R3) 


015646 


042713 


000010 






BIC 


♦10, (R3) 


015652 


011304 








MOV 


(R3).R4 


015654 


042704 


077700 




•IIF NB 


<77700> 


BIC 


015660 


020504 








CMP 


R5,R4 


015662 


001401 








BEQ 


It 



R ERROR 
R ERROR 
R ERROR 



015664 

015664 
015666 
015672 
01S674 
015700 
015704 
015706 



R ERROR 
R ERROR 
R ERROR 



015712 

015712 
015714 



;0ISABLE ALL INTERRUPTS 
:SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

;SET UP POINTER TO SILO STATUS 
j(R5)«EXPECTE0 DATA 
sIN SILO STATUS REGISTER. CLRBIT 
:SET ALL REAO/URITE BITS 
;IN SILO STATUS REGISTER 
-.CLEAR BIT 3 

sGET CONTENTS OF SILO STATUS 
♦77700. R4 sCLEAR UNUANTEO BITS 

:UAS BIT 3 CLEARED 



.IIF ION 
.IIF IDN 
.IIF IDN 



<DHSSR>.<DHLPR>. 
<DHSSR>.<0HBCR>, 
<OHSSR>.<DHS$R>. 



HIT 
HLT 
HLT 



2 
3 
4 



iSILO STATUS 
;SILO STATUS 
:SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



104004 
052713 
011304 
042704 
022704 
001403 
012705 



000010 

077700 
100077 

100077 



EMT 

It: BIS 
MOV 

.IIF NB <77700>. 
CMP 
BEQ 

nov 

•IIF IDN 
.IIF IDN 
.IIF IDN 



4 

•10. (R3) 
(R3).R4 



104004 
104400 



EMT 
SCOPE 
BITX-40 



BIC 
♦100077. R4 
2t 

♦100077. R5 

<DHSSR>.<OHLPR>. 

<DHSSR>.<0HBCR>. 

<DH5SR>.<0HSSR>. 

4 



:SeT BIT 3 

♦77700. R4 

tUAS BIT 3 SET 



iruEAR UNUANTED BITS 



iCRS)-EXPECTEO DATA IN 

iSILO STATUS RE6IS1ER. 100077 

HLT 2 



HLT 
HLT 



3 
4 



SILO STATl'S 
r.-L0 STA-JS 
SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



000020 
000004 

177757 
100057 



2t: 

• IF EQ 
.NLIST 
6ITX-100000 
BITC-17 
.LIST 
.IFF 

BITX»BITX*BITX 

BITC-BITC»1 

.ENOC 

CCRBIT«-BITX-1 
CLRBIT -CCRBITCIOOO?? 
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SEQ 107 



015716 



100057 



BITCLR-CLRBIT 

REGTS7 t/OHSSR/.\BITX.t/SILO ST ATUS/.\BITC, 100077, CLR8IT, 77700 
:SILO STATUS REGISTER DATA TEST 

J SET ALL REAO/URITE BITS IN SILO STATUS REGISTER TO IS 
iCLEAR BIT 4 

(VERIFY THAT BIT 4 WAS CLEARED 
(RESTORE BIT 4 



(VERIFY THAT BIT 4 UAS SET 



015716 








TS \XN.400C.2J 




015716 


012767 


000340 


162052 


T151: 


MOV 


«340.PS 


015724 


012767 


004000 


002124 




MOV 


«4000.IC0UNT 


015732 


012767 


016030 


002112 




MOV 


«2}. ESCAPE 










.IF NB 


< > 














MOV 


♦.FREEZl 










.ENOC 








000152 






XN-XN»1 






015740 


012777 


004000 


002042 




MOV 


«eiTll.aOHSCR 


015746 


016703 


002054 






nov 


OhSSR.RS 


015752 


012705 


100057 






HOV 


•CLRBIT.R5 


015756 


012713 


100077 






nov 


•100077. (R3) 


015762 


042713 


000020 






SIC 


*20.(R3) 


015766 


011304 








MOV 


(R3).R4 


015770 


042704 


077700 




.IIF NB 


<77700> 


BIG 


015774 


020504 








CMP 


RS.ft4 


015776 


001401 








6EQ 


11 



R ERROR 
R ERROR 
R ERROR 



016000 

016000 104004 

016002 052713 000020 

016006 011304 

016010 042704 077700 

016014 022704 100077 

016020 001403 

016022 012705 100077 



R ERROR 
R ERROR 
R ERROR 



016026 

016026 104004 
016030 104400 



000040 
000005 

177737 
100037 
100037 



(DISABLE ALL INTERRUPTS 
jSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP POINTER TO SILO STATUS 
((R5)-EXPECTED DATA 
(IN SILO STATUS REGISTER, aRBIT 
(SET ALL READ/URITE BITS 
(IN SILO STATUS REGISTER 
(CLEAR BIT 4 

(GET CONTENTS OF SILO STATUS 
•77700.R4 (CLEAR UMMNTEO BITS 

(UAS BIT 4 CLEARED 



.IIF IDN 
.IIF ION 
.IIF IDN 



<OHSSR>.<OHLPR>. 
<OHSSR>.<DHBCR>. 
<OHSSR>.<OHSSR>. 



HLT 
HLT 
HLT 



2 
3 
4 



:SILO STATUS 
:SILO STATUS 
(SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



EMI 

1«: BIS 
NOV 

.IIF NB <77700>. 
CHP 
6EQ 
NOV 

.IIF ION 
.IIF IDN 
.IIF ION 



4 

(R3).R4 



EMT 
SCOPE 
BITX-40 



BIC 
U00077.R4 
2t 

«100077.RS 

<OHSSR>.<OHLPR>. 

<OHSSR>.<OHBCR>. 

<OHSSR>.<OHSSR>. 

4 



iSET BH 4 
#77700. R4 

lUAs BIT 4 ser 



:CLEAR UMUANTED BITS 



xCRS)-EXPECTED DATA IN 

STATUS REGISTER. 100077 
HLT 2 



HLT 
HLT 



S 
4 



sSILG STATUS 
sSILO STATUS 
sSILO STATUS 



REGISTE 
REGISTE 
REGISTE 



2»: 

.IF EQ 
.NLIST 
BITX-100000 
BITC-17 
.LIST 
.IFF 

BITX-BITXtBITX 

BITC-BITCtl 

.ENOC 

CCR8IT--8ITX-1 

CLRBIT-CCRBITei00077 

6ITCLR-CLRBIT 
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SEQ 106 



016032 



REGTS7 t/DHSSR/,\BITX.t/SILO STATUS/, \BITC. 100077. CLRBIT, 77700 



016032 

016032 012767 

016040 012767 

016046 012767 



016054 
016062 
016066 



016076 
016102 
016104 
016110 
016112 



R ERIOR 
R ERROR 
R ER^OR 



016114 

016114 
016116 
016122 
016124 
016130 
016134 
016136 



R ERROR 
R ERROR 
R ERROR 



016142 

016142 
016144 



000153 
012777 
016703 
012705 



016072 012713 



0427 13 
011304 
042704 
020504 
001401 



104004 
052713 
011304 
042704 
022704 
001403 
012705 



104004 
104400 

100000 
000017 



077777 
000077 
000077 



000340 161736 
004000 002010 
016144 001776 



004000 001726 

001740 

100037 

100077 

000040 

077700 



000040 

077700 
100077 

100077 



sSILO STATUS REGISTER DATA TEST 

:SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO IS 
i CLEAR BIT 5 

{VERIFY THAT BIT 5 WAS CLEARED 

iRESTORE BIT 5 

I VERIFY THAT BIT 5 WAS SET 



TS \XN.4000.2I 
T1S2: nOV 

nov 

MOV 
.IF NB <> 

nov 

.ENOC 
XN*XN*1 

nov 

HOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB < 77700 >. 



«340.PS 
ft4000,IC0UNT 
«2). ESCAPE 

«.FREEZ1 



•BITll.SDHSCR 
DHSSR.R3 
♦CLRBIT. R5 

♦100077. (R3) 



•40. (R3} 
(R3).R4 



BIC 



.Iir ION 
.IIF ION 
.IIF ION 



CMP 
BEQ 



RS.R4 
1< 

<OHSSR>.<OHLPR>. 
<OHSSR>.<OHBCR>. 
<OHSSR>.<OHSSR>. 



i DISABLE ALL INTERRUPTS 
tSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOP WITH DATA 



:MASTER CLEAR INTERFACE 

:SET UP POINTER TO SILO STATUS 
j(R5)-E>:PECTED DATA 
:IN SILO STATUS REGISTER, CLRBIT 
iSET ALL READ/URITE BITS 
:IN SILO STATUS REGISTER 
: CLEAR BIT 5 

:GET CONTENTS OF SILO STATUS 
•77700. R4 : CLEAR UNWANTED BITS 

:UAS BIT 5 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



EMT 

II: BIS 
MOV 

.IIF NB <77700>, 
CMP 
BEQ 
MOV 

.IIF ION 

.IIF ION 

.IIF ION 



•40.CR3) 
CR3).R4 



BIC 
♦:.00077.R4 

•100077. R5 

<DHSSR>,<OHLPft>. 

<DHSSR>.<OHBCR>. 

<DHSSR>.<OHSSR>. 

4 



:SET BIT 5 

♦77700 ,R4 

tUAS SIT 5 SET 



:SILO 
sSILO 
iSILO 

.•CLEAR UNWANTED BITS 



STATUS 
STATUS 
STATUS 



REGISTE 
REGISTE 
REGISTE 



;(R5) -EXPECTED DATA IH 

tSILO STATUS REGISTER. 100077 

HLT 2 sSILO 



HLl 
HLT 



3 
4 



.-SILO 
iSILO 



STATUS 
STATUS 
STATUS 



REGISTE 
REGISTE 
REGISTE 



016146 



EMT 

21: SCOPE 

.IF EQ BITX-40 

BITX-IOOOOO 

BITC-17 

.IFF 

.NLIST 

BITX«BITX»BITX 

BITC-BITC*! 

.LIST 

.ENOC 

CCRBIT--BITX-1 
CLRBIT -CCRBIT£100077 
BITCLR-CLRBIT 

REGTS7 t/DHSSR/,\Bnx.t/SILO STATUS/, \BITC. 100077. CLRBIT. 77700 
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SEQ 109 



016146 

016146 012767 

016154 012767 

016162 012767 



016170 
016176 
016202 



000154 
012777 
016703 
012705 



016206 012713 

016212 042713 

016216 011304 

016220 042704 

016224 020504 

016226 001401 



R ERROR 
R ERROR 



R ERROR 



016230 

016230 1C4004 

016232 052713 

016236 011304 

016240 042704 

016244 022704 

016250 001403 

016252 012705 



R ERROR 
R ERROR 
R ERROR 



016256 

016256 104004 
016260 104400 



000000 
000020 



366 
367 
368 
369 
370 



000340 
004000 
016260 



004000 
001624 
000077 

100077 

100000 

077700 



100000 

077700 
100077 

100077 



161622 
001674 
001662 



001612 



J SILO STATUS REGISTER DATA TEST 

J SET ALL REAO/URITE BITS IN SILO STATUS REGISTER TO IS 
jCLEAR BIT 17 

tVERIFY THAT BIT 17 MAS CLEARED 

jRESTORE BIT 17 

I VERIFY THAT BIT 17 WAS SET 



TS \XN,4000.2$ 
T153: MOV 

MOV 

MOV 
.IF NB <> 

HOV 

.ENOC 
XN-XN«1 

HOV 
MOV 
MOV 

MOV 

BIC 
MOV 

.IIF NB < 77700 >. 



«40.PS 
«4000.ICOUNT 
♦2 », ESCAPE 

«.FREEZ1 



.IIF ION 
.IIF ION 
-IIF ION 



CMP 
BEQ 



•BIT11.80HSCR 
DHSSR.R3 
«CLRBIT.RS 

«100077.(R3) 

«100000.(R3) 
(R3).R4 

BIC 

RS.R4 
It 

<OHSSR>.<OHLPR>. 
<OHSSR>.<OHBCR>. 
<OHSSR>.<OHSSR>. 



(DISABLE ALL INTERRUPTS 
.SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



i MASTER CLEAR INTERFACE 

I SET UP POINTfcR TO SILO STATUS 
((R5)-EXPECTE0 DATA 
ilN SILO STATUS REGISTER. CLR8IT 
(SET ALL READ/URITE BITS 
ilN SILO STATUS REGISTER 
iCLEAR BIT 17 

(GET CONTENTS OF SILO STATUS 
«77700,R4 i CLEAR UNUANfED BITS 

tUAS BIT 17 CLEARED 



HLT 
HLT 
HLT 



2 
3 
4 



:SILO STATUS 
:SILO STATUS 
:SILO STATiJS 



RE6ISTE 
REGISTE 
REGISTE 



EtIT 

1«: BIS 

:nv 

.IIF NB <77700>, 
CMP 
BEQ 
MOV 



.IIF ION 
.IIF ION 
.IIF ION 



EMI 
SCOPE 
eiTX-40 



«100000.(R3) 
(R3},R4 

BIC 
*100077.R4 
2t 

•100077. RS 

<DMSSR>.<OHLPR>. 

<OHSSR>.<OHBCR>. 

<OHSSR>.<OHSSR>. 

4 



;SET BIT 17 



•77700. R4 



: CLEAR UNUANTEO BITS 



lUAS BIT 17 SET 

iCRS) -EXPECTED DATA IN 

iSILQ STATUS REGISTER. 100077 

HLT 2 



HLT 
ICT 



3 
4 



:SILO STATUS 
:SP.a STATUS 
:SILO STATUS 



REGISTE 
REGISTE 
REGISTE 



2t: 

.IF EQ 
.NLIST 
BITX-IOOOOO 
BITC-17 
.LIST 
.IFF 

BITX-BITX«BITX 
BITC-BITC«1 

.ENOC 



tSYSTEM CONTROL REGISTER MOVE-BYTE TEST (PART 1) 
(ISSUE A MASTER CLEAR 

(MOVE A BYTE TO SET INTERRUPT ENABLE BITS 
i IN UPPER BYTE OF SYSTEM CONTROL 
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SEQ 110 



371 










372 










373 










374 










375 










376 


016262 


012706 


021544 




377 


016266 


012767 


000340 


161502 


378 


016274 


012767 


016404 


001550 


379 


016302 


012767 


004000 


001546 


380 


016310 


052777 


004000 


001472 


381 


016316 


016703 


001466 




382 


016322 


005203 






383 


016324 


112713 


000060 




384 










385 


016330 


022777 


030000 


001452 


386 


016336 


001406 






387 


016340 


012705 


030000 




388 


016344 


017704 


001440 




389 


016350 
016350 


104001 






390 


016352 


000414 






391 


016354 


112777 


000100 


001426 


392 










393 


016362 


022777 


030100 


001420 


394 


016370 


001405 






395 


016372 


012705 


030100 




396 


016376 


017704 


001406 




397 


016402 
016402 


104001 






398 


016404 


104400 






399 










400 










401 










402 










403 










404 










405 










406 










407 










408 










409 


016406 


012706 


021544 




410 


016412 


012767 


000340 


161356 


411 


016420 


012767 


016530 


001424 


412 


016426 


012767 


004000 


001422 


413 


016434 


052777 


004000 


001346 


414 


016442 


016703 


001342 




415 


016446 


005203 






416 


016450 


112777 


000017 


001332 


417 










418 


016456 


022777 


000017 


001324 


419 


016464 


001406 






420 


016466 


012705 


000017 




421 


016472 


017704 


001312 




422 


016476 
016476 


104001 






423 


016500 


000413 






424 


016502 


112713 


000002 





jVERIFY BITS SET CORRECTLY 
:HOVE A BYTE TO SET INTERRUPT ENABLE BIT 
I IN LOWER BYTE OF SYSTEM CONTROL 

; VERIFY UPPER BYTE WAS NOT AFFECTED 



T154: 



991: 



T155: 



MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
INC 
MOVB 

CMP 
BEQ 
MOV 
MOV 
HLT 
EMT 
BR 

MOVB 

CUP 
BEQ 
MOV 
MOV 
HLT 
EMT 
SCOPE 



♦STACK 

#340, 

♦99*. 

44000. 

#BIT11 

OHSCR. 

R3 

«60. 

•BIT13 
2» 

♦8IT13 
SOHSCR 
1 
1 

99» 

«eiT06 

«eiTi3 

991 

«eiTis 

SOHSCR 

1 
1 



SP 
PS 

ESCAPE 
ICOUNT 
SOHSCR 
R3 

(R3) 



jSET UP STACK 

tLOCK OUT INTERRUPTS 

I SET UP TO ESCAPE TO NEXT TEST 

iSET UP FOR 4000 ITERATIONS 

> ISSUE MASTER CLEAR 

j(R3)-SYSTEM CONTROL REGISTER ADDRESS 
UPPER BYTE 



iSET INTERRUPT ENABLE BITS 
tIN UPPER BYTE OF SYSTEM CONTROL 
*BIT12. SOHSCR :VERIFY BITS SET CORRECTLY 

{BRANCH IF OK 
♦BIT12.R5 j(R5)-REGISTER EXPECTED DATA 
. R4 i(R4)-REGISTER ACTUAL DATA 

tBITS DID NOT SET CORRECTLY 

(BRANCH TO SCOPE 
SOHSCR I SET INTERRUPT ENABLE BIT 

I IN LOUER BYTE OF SYSTEM CONTROL 
♦BIT12*BIT06. SOHSCR iVERIFY BITS SET CORRECTLY 

i BRANCH IF OK 
*6IT12*BIT06.RS i(RS)-REGISTER EXPECTED DATA 
. R4 i(R4)-REGISTER ACTUAL DATA 

I UPPER BYTE UAS AFFECTED? 

) CHECK FOR ITERATIONS. LOOP 



(SYSTEM CONTRCM. REGISTER HOVE-BYTE TEST (PART 2) 

(ISSUE FASTER aEAR 

(HOVE A BYTE TO SET LINE SELECT BITS 

I IN LOUER BYTE OF SYSTEM CONTROL 

(VERIFY BITS SET CORRECTLY 

(NOVE A BYTE TO SET THE NMNTENMCE BIT 

i IN UPPER BYTE OF SYSTEH CONTROL 

(VERIFY LOUER BYTE UAS NOT AFFECTED 



NOV 


♦STACK, 


SP 


(SET UP STACK 


MOV 


«540. 


PS 


sLXK OUT INTERRUPTS 


HOV 


•991. 


ESCAPE 


(SET UP TO ESCAPE TO NEXT TEST 


HOV 


MOOO. 


ICOIMT 


(SET UP FOR 4000 ITERATIONS 


BIS 


♦BITU. 


aOHSCR 


ilSSUE MASTER aEAR 


HOV 


OHSCR. 


R3 


tCR3)*SYSTEH CONTROL REGISTER ADDRESS 


INC 


R3 




t UPPER BYTE 


NOVB 


♦17. 


SDHSCR 


(SET LINE SELECT BITS 








(IN L(MER BYTE OF SYSTEH CONTROL 


CHP 


•17, 


SOHSCR 


(VERIFY BITS SET CORRECTLY 


BEQ 


21 




(BRANCH IF OK 


t«v 


»17. 


R5 


((RS)>REGISTER EXPECTED DATA 


MOV 


SOHSCR. 


R4 


((R40-REGISTER ACTUAL DATA 


HLT 


1 




(BITS DID NOT SET CORRECTLY 


EMT 


1 






BR 


991 




(BRANCH TO SCOPE 


MOVB 


•2, 


(R3} 


(SET HAINT^ANCE BIT 
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SEQ 111 



425 

426 016506 

427 016514 

428 016516 

429 016522 

430 016526 
016526 

431 016530 
432 

433 016532 



022777 
001405 
012705 
017704 

104001 
104400 



001017 001274 

001017 
001262 



99$: 
.EOP 



ChP 
BEQ 
MOV 
MOV 
HLT 
EMT 
SCOPE 

t/BEGIN/ 



#1017. 
99) 

#1017. 
SOHSCR. 
1 
1 



i IN UPPER BYTE OF SYSTEM CONTROL 

SOHSCR i VERIFY BITS SET CORRECTLY 

; BRANCH IF OK 
R5 i(R5)-REGISTER EXPECTED DATA 

R4 ;(R4)-REGISTER ACTUAL DATA 

iLOUER BYTE WAS AFFECTED? 

iCHECK FOR ITERATIONS, LOOP 



016532 
016534 
016536 
016542 
016546 
016552 
016556 
016560 
016562 
016564 
016566 
016570 
016572 
016572 
016600 
016600 
016604 
016606 



104401 
020467 

005067 001344 

005067 001274 

005267 001272 

005767 162224 

001005 

104401 

020502 

104402 

016624 

000403 

016767 001246 162202 

013701 000042 

001405 

000005 



EOP: 



2»: 
3«: 



iEND OF PASS 
jTYPE NAME OF TEST 
I UPDATE PASS COUNT 
! CHECK FOR EXIT TO ACT- 
iRESTART TEST 



11 



TYPE 

MEPASS 

CLR 

CLR 

INC 

TST 

BNE 

TYPE 

PASTXT 

OCTASC 

PASARG 

BR 

nov 

HOV 
BEQ 
RESET 



LAST 

ERRFLG 

PASCNT 

LIGHTS 

2t 



3$ 

PASCNT. LIGHTS 



;TYPE NAME OF TEST 

: CLEAR LAST ERROR PC 

s CLEAR ERROR FLAG 

: UPDATE PASS COUHJ 

I ARE UE USING LIGHTS? 

I BRANCH IF UE ARE 

t TYPE PASCOUNT MESSAGE 



i 



PRINT PASSCOIMT 



9M2.R1 
RESTRT 



> CONTINUE 

i DISPLAY PASS COUNT 

(CHECK FOR ACT -11 OR OOP 
(IF NOT. CONHNUE TESTING 



! 4 

: 6 
: 5 
; 5 
: 4 

s 4 
: 4 



:4 : 6 



016610 


004711 






LOGICAL 




JSR PC.(Rl) 




016612 


000240 








NOP 




016614 


000240 








NOP 






016616 


000240 








NOP 






016620 


000167 


162462 




RESTRT: 


JMP 


BEGIN 




016624 


000001 






PASARG: 


.UORD 


1 t PMUNETERS TO PRINT PASSCOUNT 


: 5 


016626 


006 


002 






.BYTE 


6.2 


: 5 


016630 


020044 








.WORD 


PASCNT 


: 5 


016632 








.SCOPE 


















; CHECK 


FOR LOOP ON CURRENT TEST 


i 3 












tC»CCK 


FOR ITERATION SUPPRESSION 




016632 


032777 


002000 


162140 


SCOPER: 


BIT 


«SU10.8SUR 


: 4 


016640 


001030 








BNE 


4» 




016642 


032777 


040000 


162130 


1): 


BIT 


«SU14.8SUR 


s 4 


016650 


001021 








BNE 


3$ 




016652 


032777 


004000 


162120 




BIT 


«SU11.0SUR 


: 4 


016660 


001006 








BNE 


2» 




016662 


005267 


001172 






INC 


LPCNT 




016666 


026767 


001166 


001162 




CMP 


LPCNT.ICOUNT 




016674 


001007 








BNE 


3» 
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016676 


005067 


001156 




2it 


CLR 


LPCNT 


016702 


005067 


001134 






CLR 


ERRFLG 


01b706 


011667 


001136 






MOV 


(SP),RETRN 


016712 


000002 








RTI 


016714 


016716 


001130 




3$: 


MOV 


RETRN.CSP) 


016720 


000002 








RTI 




UlD / CC 




AA W \A 
OOlll'l 






TC T 


tKKr Lb 


016726 


001745 








BEQ 


1$ 




000762 








DO 


OA 


435 016732 








.SCOPl 
















: CHECK 


FOR FREEZE ON 


016732 


032777 


001000 


162040 


SCOPIR: 


BIT 


«SU09.SSUR 
















016742 


016716 


001106 






MOV 


FREEZl.CSP) 


Al &7 Ail 


UUUUOe 






1 ^ ' 


DTT 
K 1 1 




436 016750 








.ERROR 
















■ERROR 


HANDLER 


016750 


032777 


020000 


162022 


ERRORS : 


BIT 


•SU13,8SUR 


016756 


001055 








BNE 


HALTS 


016760 


021667 


001122 






CMP 


(SP).LAST 


016764 


001404 








BEQ 


1» 


016766 


011667 


001114 






MOV 


(SP).LAST 


016772 


005067 


001044 






CLR 


ERRFLG 


016776 


104406 






1$: 


SAV05P 




017000 


011605 








MOV 


(SP).R5 


017002 


162705 


000002 






SUB 


«2.RS 


017006 


011504 








nov 


CR5}.R4 


017010 


006304 








ASL 


R4 


017012 


006304 








ASL 


R4 


017014 


042704 


177001 






BIC 


♦177001. R4 


017020 


062704 


020622 






ADD 


«ERRTAB.R4 


017024 


012467 


000040 






HOV 


(R4)*.ERRnSG 


017030 


011467 


000052 






MOV 


(R4}. DAT ASP 


017034 


005767 


001002 






TST 


ERRFLG 


017040 


001403 








BEQ 


TYPMSG 


017042 


005767 


000040 






TST 


OATABP 


017046 


001011 








BNE 


TYPOAT 


017050 


104401 






TYPMSG: 


TYPE 




017052 


020377 








MCRLF 




017054 


104402 








OCTASC 




017056 


017154 








ERTABO 




017060 


012767 


000001 


000754 




nov 


«1. ERRFLG 


017066 


104401 








TYPE 




017070 


000000 






ERRHSG: 


0 




017072 


005767 


000010 




TYPDAT: 


TST 


OATABP 


017076 


001404 








BEQ 


RESREG 


017100 


104401 








TYPE 




017102 


020377 








MCRLF 




017104 


104402 








OCTASC 




017106 


000000 






OATABP: 


0 




017110 


104407 






RESREG: 


RES05 




017112 


005777 


161662 




HALTS: 


TST 


8SUR 


017116 


100005 








BPL 


EXITER 



ScQ 112 



I 



: 4 



! 4 



3 
5 
5 
5 



5 5 
; 5 



i 4 
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SEQ 113 



017120 010046 

017122 016600 000002 

017126 000000 

017130 012600 

017132 005267 000710 

017136 032777 002000 161634 

017144 001402 

017146 016716 000700 

017152 000002 

017154 000001 
017156 006 002 

017160 020100 
437 017162 



EXITER: 



U: 

ERTABO: 



.TRPSRV 



PUSHRO 

MOV 

HALT 

POPRO 

INC 

BIT 

BEQ 

MOV 

RTI 

1 

.BYTE 
SAVPC 



2(SP}.R0 



ERRCNT 

«SU10.SSUR 

U 

ESCAPE, (SP) 



6.2 



;TRAP DISPATCH SERVICE 

! ARGUMENT OF TRAP IS EXTRACTED 

sAND USED AS OFFSET TO OBTAIN POINTER 

:T0 SELECTED SUBROUTINE 



017162 


011646 




017164 


162716 


000002 


017170 


017616 


000000 


017174 


006316 




017176 


042716 


177001 


017202 


062716 


020542 


017206 


017616 


000000 


017212 


000136 




438 017214 







TRPSRV: 


MOV 


(SP). (SP) 




SUB 


#2.(SP) 




MOV 


8(SP).(SP) 


TRPOK: 


ASL 


(SP) 




BIC 


#177001. (SP) 




ADD 


#TRPTAB.(SP) 




MOV 


8(SP).CSP) 




JMP 


S(SP)« 



•TYPER 



GET PC OF RETURN 
=PC OF TRAP 
GET TRP 

MULTIPLY TRAP ARG BY 2 
CLEAR UNWANTED BITS 
POINTER TO SUBROUTINE ADDRESS 
SUBROUTINE ADDRESS 
GO TO SUBROUTINE 



; TELETYPE OUTPUT ROUTINE 



017214 
017220 
017224 
017230 
017232 
017234 
017236 
017240 
017244 
439 017246 



017605 000000 

062716 000002 

105777 000554 

100375 

105715 

001001 

000002 

112577 000542 
000767 



TYPPR: MOV 8(SP).R5 

ADO «2.(SP) 

1$ : TSTB aiPCSR 

BPL 1$ 

TSTB (R5) 

BNE 2» 

RTI 

2$: MOVB (R5)*.8TPDBR 

BR 1» 

.INSTRG 



I ASCII STRING INPUT ROUTINE 



017246 


017667 


000000 


000006 


INSTRG: 


MOV 


8(SP),MSG 


017254 


062716 


000002 






ADO 


«2.(SP) 


017260 


104401 






INSTRl : 


TYPE 




017262 


000000 






MSG: 


0 




017264 


012704 


020564 






MOV 


«INBUF.R4 


017270 


012703 


000007 






nov 


#7.R3 


017274 


105777 


000500 




1$: 


TSTB 


fiTKCSR 


017300 


100375 








BPL 


1) 


017302 


117714 


000474 






MOVB 


STK06R,(R4) 


017306 


142714 


000200 






BICB 


«200.(R4) 


017312 


122427 


000015 






CMPB 


(R4)*.#15 


017316 


001413 








BEQ 


INSTR2 


017320 


117777 


000456 


000460 




MOVB 


STK06R.STP0BR 


017326 


105777 


000452 




2$: 


TSTB 


8TPCSR 
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017332 


100375 




017334 


005303 




017336 


001356 




017340 


104401 




017342 


020373 




017344 


000745 




017346 


000002 




017350 






017350 


011605 




01 7352 


012567 


000146 


017356 


012567 


000144 


017362 


012567 


000142 


017366 


112567 


000140 


017372 


112567 


000135 


017376 


010516 




017400 


005005 




017402 


012704 


020564 


017406 


122714 


000015 


017412 


001420 




017414 


121427 


A A A A^ A 

000060 


017420 


002415 




017422 


121427 


AA ^ ^ 

000067 


017426 


003012 




017430 


142714 


A A AAf A 

000060 


017434 


152405 




017436 


122714 


A AAA 4 C 

000015 


017442 


001406 




017444 


006305 




017446 


006305 




017450 


006305 




017452 


000760 




017454 


104404 




017456 


000750 




017460 


020567 


000042 


017464 


101373 




017466 


020567 


000032 


017472 


103770 




017474 


136705 


000032 


017500 


001365 




017502 


016704 


AAA A 

000022 


017506 


010524 




017510 


062705 


A A A A A A 

000002 


017514 


105367 


000013 


Ai OA 

017520 


001372 




017522 


000002 




017524 


000000 




017526 


000000 




017530 


000000 





BPL 2) 
DEC R3 
BNE 1) 
INSTRE: TYPE 
MQH 

BR INSTRl 
INSTR2: RTI 
.PARAMS 

: CONVERT ASCII STRING TO OCTAL 



rHKnnb : 


Mnti 
nQv 


^ CD ^ DC 




nov 


^ DC \ ^ 1 ni TM 




nuv 


r DO A UTI TM 




Mnu 


rD'\')^ nruanp 

V. n J ^ ♦ , UC VnUn 




Mnun 


ro^t^ 1 nRTTC 

Knj J * g LUD J. 1 3 




nuvD 


rO'i'ii. ADDrMT 




Hnu 


RS f CP ) 

T\J 1 V Or J 


PAQAM1 « 














CMPB 

I'D 


«1S (R4) 




BEQ 


PARERR 


1): 


CMPB 


(R4),«60 




BLT 


PARERR 




CMPB 


(R4).#67 




BGT 


PARERR 




BICB 


«60.(R4) 




BISB 


(R4)*.R5 




CMPB 


#15. (R4) 




BEQ 


LIMITS 




ASL 


R5 




ASL 


R5 




ASL 


R5 




BR 


1) 


PARERR: 


INSTER 






BR 


PARAMl 



:TEST TO SEE IF NUMBER IS UITHIN LIMITS 



LIMITS: CMP 


R5.HILIM 


BHI 


PARERR 


CMP 


R5.L0LIM 


BLO 


PARERR 


BITB 


L0BITS.R5 


BNE 


PARERR 



: STORE NUMBER AT SPECIFIED ADDRESS 

MOV 0EVADR.R4 
1»: MOV R5.(R4)* 

AOO «2.R5 

OECB ADRCNT 

BNE 1) 

RTI 
LOLIM: 0 
HILIM: 0 
OEVADR: 0 
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SEQ 115 



017532 


000000 




LOBITS: 


0 






0175.^3 




ADRCNT> 


LOBITS*! 




441 017534 






OCTASC 














: CONVERT OCTAL NUMBER 


017534 


017601 


000000 


OCTASN* 


NOV 


9( SP}.R1 


017540 


062716 


000002 




AOO 


#2.(SP) 


017544 


012167 


000130 




MOV 


(RD^.URDCNT 


017550 


112167 


000126 


li: 


MOVB 


(R1)*.CHRCN1 


017554 


112167 


000123 




MOVB 


(R1)*.SPACNT 


017560 


013167 


000120 




MOV 


SCRD^.BINWRO 


017564 


016704 


000114 


2t : 


MOV 


BINURO. R4 


017570 


116705 


000106 




MOVB 


CHRCNT, R5 


017574 


012700 


020576 




MOV 


#TEMP.RO 


017600 


010403 




3) : 


MOV 


R4,R3 


017602 


042703 


177770 




BIC 


#177770. R3 


017606 


062703 


000260 




AOO 


•260, R 3 


017612 


110320 






MOVB 


R3,(R0}* 


017614 


006204 






ASR 


R4 


017616 


006204 






ASR 


R4 


017620 


006204 






ASR 


R4 


017622 


005305 






DEC 


R5 


017624 


001365 






BNE 


3) 


017626 


012703 


020610 




MOV 


#MDATA,R3 


017632 


114023 




4) : 


MOVB 


-(R0},(R3}* 


017634 


105367 


000042 




OECB 


CHRCNT 


017640 


001374 






BNE 


4) 


017642 


105767 


000035 




TSTB 


SPACNT 


017646 


001405 






BEQ 


61 


017650 


112723 


000240 


5): 


MOVB 


♦240, (R3)* 


017654 


105367 


000023 




OECB 


SPACNT 


017660 


001373 






BNE 


5) 


017662 


105013 




6): 


CLRB 


(R3) 


017664 


104401 






TYPE 




017666 


020610 






MOATA 




017670 


005367 


000004 




DEC 


UROCNT 


017674 


001325 






BNE 


11 


017676 


000002 






RTI 




017700 


000000 




UROCNT: 


0 




017702 


A A 0\ 0\ 0\ A 

000000 




CHRCNT: 


0 






017703 




SPACNT"CHRCNT*1 




017704 


000000 




BINURO: 


0 




442 017706 






.SAVREG 














J SAVE PC OF TEST THAT 


017706 


016667 


000004 000164 


SV05P: 


MOV 


4(SP),SAVPC 










;SAVE RO-RS 


017714 


010567 


000154 


SVOS: 


MOV 


R5.SAVR5 


017720 


010467 


000146 




MOV 


R4.SAVR4 


017724 


010367 


000140 




MOV 


R3.SAVR3 


017730 


010267 


000132 




MOV 


R2.SAVR2 


017734 


010167 


000124 




MOV 


Rl.SAVRl 


017740 


010067 


000116 




MOV 


RO.SAVRO 



i 5 



: 3 



i 3 
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SEQ 116 



017744 000002 
443 017746 



.RESREG 



RTI 

sRESTORE RO-RS 



017746 
017752 
017756 
017762 
017766 
017772 
017776 
44A 020000 



020000 
020002 
020004 
020006 



TLVL> 



020010 
020012 
020014 
020016 
020020 
020022 
020024 
020026 
020030 
020032 
020034 
020036 
020040 
445 020042 



020042 
020044 
020046 
020050 
020052 
020054 
020056 
020060 
020062 
020064 
020066 
020070 
020072 
020074 
020076 
020100 
020102 
020104 
020106 



016700 
016701 
016702 
016703 
016704 
016705 
000002 



177560 
177562 
177564 
177566 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooc 

000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000110 
000106 
000104 
000102 
000100 
000076 



RS05: 



.POINT 



TKCSR 
TKOeR 
TPCSR 
TPDBR 
• IRP 

A: 

.ENOM 

DHSCR 

DHNRC 

OHLPR 

DHBA: 

DHBC: 

DHBAR 

DHBCR 

DHSSR 

DHSLR 

DHRVEC 

DHRLVL 

DHTVEC 

DHTLVL 

.VARIA 



ERRFLG 

PASCNT 

ERRCNT 

RETRN: 

ESCAPE 

FREEZl 

ICOUNT 

LPCNT 

SAVRO 

SAVRl 

SAVR2 

SAVR3 

SAVR4 

SAVR5 

SAVSP 

SAVPC 

INIFLG 

STFLG: 

LAST: 

.IRP 



nOV SAVRO. RO 

nOV SAVRl.Rl 

nOV SAVR2.R2 

nOV SAVR3.R3 

nOV SAVR4.R4 

nOV SAVR5.R5 
RTI 

t/DHSCR . OHNRC . DHLPR . DHBA , DHBC , DHBAR . DHBCR . DHSSR . DHSLR. DHRVEC .DHRLVL . DHTVEC , DHTLVL/ 
: INDIRECT POINTERS i 3 

177560 
177562 
177564 
177566 

A <DHSCR. DHNRC, DHLPR. DHBA. DHBC. DHBAR. DHBCR, DHSSR. DHSLR, DHRVEC. DHRLVL, DHTVEC. DH 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



: PROGRAM VARIABLES 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
A 



ERROR FLAG 
PASS COUNT 
ERROR COUNT 

SCOPE RETURN ADDRESS FOR TEST LOOPING 
(ADDRESS FOR ERROR ESCAPE 
I DATA LOOPING RETURN ADDRESS 

ITERATim COUNT FOR TEST IN PROGRESS 

NUWER OF ITERATIONS THIS TEST 

RO SAVE AREA 
tRl SAVE AREA 
tR2 SAVE AREA 

R3 SAVE ARE 

R4 SAVE AREA 

R5 SAVE AREA 

STACK POINTER SAVE AREA 
(CALLING ROUTINE SAVE AREA 
sPROGRAH INITIALIZATION FLAG 
(PROGRAM START FLAG 
(LAST ERROR PC 



I 3 



<> 



CZOHA-0 NACRO V04.00 27-JUN-8S 12:46:01 PAGE 17-95 



SEQ 117 



446 020110 



A: 

.PFAIL 



iENTER HERE ON POWER FAILURE 



020110 


010046 


PFAIL: 


MOV 


RO. CSP) 


020112 


010146 




nov 


Rl.-(SP) 


020114 


010246 




MOV 


R2,-(SP) 


020116 


010346 




MOV 


R3.-(SP) 


020120 


010446 




MOV 


R4.-(SP) 


020122 


010546 




MOV 


R5.-(SP) 


020124 


016746 


157674 


MOV 


24. -(SP) 


020130 


010667 


177742 


MOV 


SP.SAVSP 


020134 


012767 


020146 157662 


MOV 


0RESTART.24 


020142 


000000 




HALT 




020144 


000777 




BR 





iSAVE R0-R5 ON PROCESSOR STACK 



SAVE STACK POINTER 

SET UP FOR POWER UP TRAP 

HALT ON POWER DOWN NORMAL 



I 3 



: PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 



020146 


016706 


177724 




RE STAR: 


MOV 


SAVSP.SP 


020152 


012605 








MOV 


(SP)*,R5 


020154 


012604 








MOV 


(SP)* ,R4 


020156 


012603 








MOV 


(SP)* ,R3 


020160 


A t ^£ A^ 

012602 








MOV 


( SP ) ♦ , R2 


020162 


012601 








MOV 


(SP)* ,R1 


020164 


012600 








MOV 


(SP)* ,R0 


020166 


012767 


^^A4 4 A 

020110 


157630 




MOV 


•PFAIL ,24 


020174 


A 4 *\^£ ^ 

012767 


AAAV M A 

000340 


157574 




MOV 


♦340, PS 


020202 


A t A£ 

012706 


A1 4 tZ MM 

021544 






MOV 


♦STACK.SP 


020206 


AAC A£ ^ 

005067 


000364 






CLR 


TEMP 


020212 


005267 


000360 






INC 


TEMP 


UeUelO 


UUX3 fj 








QklC 

oric 


. -4 


020220 


104401 








TYPE 




020222 


020377 








MCRLF 




020224 


104402 








OCTASC 




020226 


020250 








PFTAB 




020230 


104401 








TYPE 




020232 


020402 








MPFAIL 




020234 


005067 


177602 






CLR 


ERRFL6 


020240 


005067 


177642 






CLR 


LAST 


020244 


000177 


177600 






JMP 


8RETRN 


020250 


000001 






PFTAB: 


1 




020252 


000006 


000002 






6.2 




020256 


020050 








RETRN 




^ 020260 








.MSG 


t/OHll 


STATIC LOG 


020260 


015 


012 


012 


MTITLE: 


.ASCIZ 


<15><12>« 


020263 


104 


110 


061 








020266 


061 


040 


123 








020271 


124 


101 


124 








020274 


111 


103 


040 








020277 


114 


117 


107 








020302 


111 


103 


040 








020305 


124 


105 


123 








020310 


124 


040 


015 








020313 


012 


000 










020315 


015 


012 


126 


MVECTO: 


.ASCIZ 


<15><12>/ 



: RESTORE STACK POINTER 
I RESTORE R0-R5 



sSET UP FOR POWER FAILURE 



i 5 
» 5 
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020320 


105 


103 


124 


020S2S 


117 


122 


040 


020S26 


101 


104 


104 


020SS1 


122 


105 


123 


020S34 


123 


055 


000 


020337 


015 


012 


103 


020342 


117 


116 


124 


02034S 


122 


117 


114 


020350 


040 


122 


105 


020353 


107 


111 


123 


020356 


lr4 


lOS 


122 


020361 


040 


101 


104 


U<0364 


104 


122 


105 


020367 


123 


123 


055 


020S7P 


000 






020373 


040 


040 


077 


020376 


000 






020377 


015 


012 


000 


020402 


040 


040 


120 


020405 


117 


127 


105 


020410 


122 


040 


106 


020413 


101 


111 


114 


020416 


125 


122 


105 


020421 


054 


040 


120 


020424 


122 


117 


107 


020427 


122 


101 


115 


020432 


040 


122 


105 


020435 


123 


124 


101 


020440 


122 


124 


040 


020443 


101 


124 


040 


020446 


124 


105 


123 


020451 


124 


040 


111 


020454 


116 


040 


120 


020457 


122 


117 


107 


020462 


122 


105 


123 


020465 


123 


000 




020467 


015 


012 


103 


020472 


132 


104 


110 


020475 


101 


055 


104 


020500 


060 


000 




020502 


015 


012 


120 


020505 


101 


123 


123 


020510 


040 


103 


117 


023513 


125 


116 


124 


020516 


040 


075 


040 


020521 


000 






020522 


015 


012 


122 


020525 


000 






020526 


015 


012 


124 


020531 


105 


123 


124 


020534 


040 


120 


103 


020537 


055 


000 





MREGAO: .ASCIZ <15><12>/C0NTR0L REGISTER ADDRESS-/ 



MQM: .ASCIZ / ?/ 
MCRLF: .ASCIZ <15><12> 

MPFAIL: .ASCIZ / POUER FAILURE. PROGRAH RESTART AT TEST IN PROGRESS/ 



448 020542 



MEPASS: .ASCIZ <15><12>/CZ0HA-00/ 



PASTXT: .ASCIZ <15><12>/PASS COUNT « / 



MR: .ASCIZ <15><12>/R/ 

MTSTPC: .ASCIZ <15><12>/TEST PC-/ 



.EVEN 
.TRPTAB 



TABLE OF POINTERS FOR TRAP DECODING 
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020542 
020544 
020546 
020550 
020552 
020554 
020556 
020560 
020562 
449 020564 



016632 
017214 
017534 
017246 
017340 
017350 
017706 
017746 
016732 



TRPTAB: SCOPEft 
TYPER 
OCTASN 
INSTRG 
INSTRE 
PARAMS 
SV05P 
RSOS 
SCOPIR 

.BUFFER 



J BUFFERS FOR INPUT -OUTPUT 



020564 


000000 






INBUF : 


0 




0205 7C 






.".♦10 




020576 


0(10000 






TEUP: 


0 




020610 






. • . ♦ 10 




0e0610 


000000 






r«ATA: 


0 




020622 






••.♦10 




450 020622 








.ERRTAB 














I TABLE 


020622 








ERRTAB: 




451 020622 


020652 








EIO 


452 020624 


021320 








OTO 


453 020626 


020714 








EHl 


454 020630 


021326 








OTl 


455 020632 


021003 








EI12 


456 020634 


021326 








OTl 


457 020636 


021072 








D13 


458 020640 


021326 








OTl 


459 020642 


021160 








EN4 


460 020644 


021326 








DTI 


461 020646 


021244 








ens 


462 020650 


021326 








OTl 


463 020652 


122 


105 


107 


EMO: 


.ASCII 


020655 


111 


123 


124 






020660 


105 


122 


040 






020663 


104 


111 


104 






020666 


040 


116 


117 






020671 


124 


040 


122 






020674 


105 


123 


120 






020677 


117 


116 


104 






464 020702 


015 


012 


101 




.ASCIZ 


020705 


104 


104 


122 






020710 


105 


123 


123 






020713 


000 










465 020714 


123 


131 


123 


EMI: 


.ASCII 


020717 


124 


105 


115 






020722 


040 


103 


117 






020725 


116 


124 


122 






020730 


117 


114 


040 






020733 


122 


105 


107 






020736 


111 


123 


124 







I TABLE OF POINTERS TO ERROR MESSAGES AND CATA 



/REGISTER DID NOT RESPOND/ 



ASCIZ <15><12> /ADDRESS/ 



ASCII /SYSTEM CONTROL REGISTER ERROR/ 



.JHA 0 MACRO V04.00 27-JUN 85 12:46:01 PAGE 17-96 



020741 


105 


122 


040 




020744 


105 


122 


122 




020747 


117 


122 






466 020751 


015 


012 


105 




020754 


130 


120 


040 




020757 


040 


040 


040 




020762 


040 


122 


105 




020765 


103 


040 


040 




020770 


040 


040 


040 




020773 


101 


!04 


104 




020776 


122 


lO'j 


123 




021001 


123 


000 






467 021003 


114 


111 


116 


EM2: 


021006 


105 


040 


120 




021011 


101 


122 


101 




021014 


115 


105 


124 




021017 


105 


122 


040 




021022 


122 


105 


107 




021025 


111 


123 


124 




021030 


105 


122 


040 




021033 


105 


122 


122 




021036 


117 


122 






A68 021040 


015 


012 


105 




021043 


130 


120 


040 




021046 


040 


040 


040 




021051 


040 


122 


105 




021054 


103 


040 


040 




021057 


040 


040 


040 




021062 


101 


104 


104 




021065 


122 


105 


123 




021070 


123 


000 






469 021072 


102 


122 


105 


EH3: 


021075 


101 


113 


040 




021100 


103 


117 


116 




021103 


124 


122 


117 




021106 


114 


040 


122 




021111 


105 


107 


111 




021114 


123 


124 


105 




021117 


122 


040 


105 




021122 


122 


122 


117 




021125 


122 








470 021126 


015 


012 


105 




021131 


130 


120 


040 




021134 


040 


040 


040 




021137 


040 


122 


105 




021142 


103 


040 


040 




021145 


040 


040 


040 




021150 


101 


104 


104 




021153 


122 


105 


123 




021156 


123 


000 






471 021160 


123 


111 


114 


EM4: 


021163 


117 


040 


123 




021166 


124 


101 


124 




021171 


125 


123 


040 




021174 


122 


105 


107 




021177 


111 


123 


124 




021202 


105 


122 


040 





.ASCIZ <15><12>/EXP REC ADDRESS/ 



.ASCII /LINE PARAMETER REGISTER ERROR/ 



.ASCIZ <15><12>/EXP REC ADDRESS/ 



.ASCII /BREAK CONTROL PEGISTER ERROR/ 



.ASCIZ <15><12>/EXP REC ADDRESS/ 



.ASCII /SILO STATUS REGISTER ERROR/ 
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021205 


105 


122 


122 








021210 


117 


122 








472 


021212 


015 


012 


105 




. ASCIZ 




021215 


130 


120 


040 








021220 


040 


040 


040 








02122i 


040 


122 


105 








021226 


103 


040 


040 








021231 


040 


040 


040 








021234 


101 


104 


104 








021237 


122 


105 


123 








021242 


123 


000 








473 


021244 


115 


101 


123 


EMS: 


.ASCII 




021247 


124 


105 


122 








021252 


040 


103 


114 








021255 


105 


101 


122 








021260 


040 


105 


122 








021263 


122 


117 


122 






474 


021266 


015 


012 


105 




.ASCIZ 




021271 


130 


120 


040 








021274 


040 


040 


040 








021277 


040 


122 


105 








021302 


103 


040 


040 








021305 


040 


040 


040 








021310 


101 


104 


104 








021313 


122 


105 


123 








021316 


123 


000 








475 










.EVEN 




476 


021320 


000001 






OTO: 


1 


477 


021322 


006 


000 




.BYTE 


6.0 


478 


021324 


020074 








SAVftS 


479 


021326 


000003 






OTl: 


s 


480 


021330 


006 


002 




• BYTE 


6,2 


481 


021332 


020074 








SAVR5 


482 


021334 


006 


002 




• BYTE 


6.2 


483 


021336 


020072 








SAVR4 


484 


021340 


006 


000 




.BYTE 


6.0 


485 


021342 


020070 








SAVR3 


486 


021344 








.ENDCOO 






021344 


000000 






ENDCOO: 


0 


487 




000001 






.END 
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ADDRESS/ 



ASCII /MASTER CLEAR ERROR/ 



REC 



AOORESS/ 
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» 017533 


BEGIN 


001306 


BiNURO 


017704 


BITC 


AAA A ^ /N 

• 000020 


BITCLR 


A A A A ^ ^ 

■ 000077 


BITX ■ 


A A A A A A 

' 000000 


BITOO ' 


A A A A A a 

• 000001 


BITOl " 


A A A A A ^ 

■ 000002 


BIT02 ■ 


A A A A A M 

' 000004 


BITC3 ■ 


A A A A « A 

■ 000010 


BIT04 • 


A A A A A A 

' 000020 


BIT05 " 


A A A A M A 

000040 


dXTOd ' 


AaA« a a 

000100 


BI'07 « 


AAA A A A 

000200 


BIT08 » 


A A A 4 A A 

000400 


BIT09 • 


A A « A A A 

001000 


BITIO ■ 


A A A AAA 

002000 


BITll ■ 


AAil AAA 

004000 


BIT12 » 


010000 


BITlo " 


020000 


dIT14 « 


040000 


DTT1 C • 


4 A AAA A 

100000 


CdIT ■ 


AAAA^A 

000020 


LCRdIT* 


077777 


CHRCNT 


017702 


CLRBIT* 


000077 


n A T A cn 
DATAor 


A4 ^4 A£ 

017106 


Uc VADR 


017530 


nuQA 
UnoH 


OeOOlD 


nuD AD 


OZOOec 


DHdC 


020020 


OHBCR 


Al AAlil 

020024 


DHLPR 


At A A 4 A 

020014 


DHNKC 


A^ AA 1 O 

020012 


rnjoi t/i 


AO AA V Jl 

020004 


UtlKVbL 




OnSLn 


A A A A 4 A 
020010 


DHSLR 


0200 oO 


OHSSR 


AO AAOt 

02002O 


DHTLVL 


A*) AAil A 

020040 


DHTVtL 






AO 4 T OA 

021020 


D 1 1 


AO 1 T Oi 

021o2o 


CHO 


AOA^ go 

OcOODc 


cnl 


AO 4 A 

020714 


cn2 


AO 4 A AT 

021003 


Ena 


A-^ 4 A TO 

0^ 1072 


tni 


AO 1 1 Cf\ 
O2IIOO 




AO 4 Oil A 

021244 


t.NUUUU 


AOI Til A 

021344 


tUr 


A4 CCVO 

01o532 


CDC kiT 


AO AAA £. 

020O4O 


PC on r 
Cr nr Lb 




ERRnSG 


017070 


ERRORS 


016750 


ERRTA8 


020622 



ERTABO 017154 
ESCAPE 020052 
EXITER 017132 
FREEZl 020054 
HALTS 017112 
HILIM 017526 
ICOUNT 020056 
INBUF 020564 
INIFLG 020102 
INSTER- 104404 
INSTR - 104403 
INSTRE 017340 
INSTRG 017246 
INSTRl 017260 
INSTR2 017346 
LAST 020106 
LIGHTS 001002 
LIMITS 017460 
LOBITS 017532 
LOGICA 016610 
LOLIM 017524 
LPCNT 020060 
MCRLF 020377 
HDATA 020610 
MEPASS 020467 
MPFAIL 020402 
riQM 020373 
HR 020522 
nREGAO 020337 
nSG 017262 
MTITLE 020260 
MTSTPC 020526 
MVECTO 020315 
N - 000001 
OCTASC> 104402 
OCTASN 017534 
PARAM « 104405 
PARAMS 017350 
PARAni 017400 
PARERR 017454 
PASARG 016624 
PASCNT 020044 
PASTXT 020502 
PFAIL 020110 
PFTAB 020250 
POPRO «• 012600 
POPISP- 005726 
P0P2SP- 022626 
PS - 177776 
PUSHRO< 010046 
PJSHIS- 005746 
PUSH2S- 024646 
RESREG 017110 
RESTAR 020146 
RESTRT 016620 
RES05 * 104407 



RETRN 020050 
RS05 017746 
SAVPC 020100 
SAVRO 020062 
SAVRl 020064 
SAVR2 020066 
SAVR3 020070 
SAVR4 020072 
SAVR5 020074 
SAVSP 020076 
SAV05P- 104406 
SCOPE 104400 
SCOPER 016632 
SCOPEl- 104410 
SCOPIR 016732 
SPACNT- 017703 
STACK - 021544 
START 001004 
STFLG 020104 
SV05 017714 
SV05P 017706 
SUR 001000 
SUOO - 000001 
SUOl - 000002 
SU02 - 000004 
SU03 - 000010 
SU04 - 000020 
SU05 - 000040 
SU06 - 000100 
SU08 > 000400 
SU09 - 001000 
SUlO ' 002000 
sun - 004000 
SU12 - 010000 
SU13 - 020000 
SU14 - 040000 
SU15 - 100000 
TEMP 020576 
TKCSR 020000 
TKOBR 020002 
TPCSR 020004 
TPDBR 020006 
TRPOK 017174 
TRPSRV 017162 
TRPTAB 020542 
TYPO AT 017072 
TYPE • 104401 
TYPER 017214 
TYPMSG 017050 
Tl 001400 
TIO 002244 
TlOO 010342 
TlOl 010442 
T102 010542 
T103 010642 



T104 


010742 


T105 


011042 


T106 


011142 


T107 


011246 


Til 


002340 


TllO 


011352 


Till 


011456 


T112 


011562 


T113 


011666 


T114 


011772 


T115 


012076 


T116 


012202 


T117 


012306 


T12 


002420 


T120 


012412 


T121 


012516 


T122 


012622 


T123 


012726 


T124 


013032 


T125 


013136 


T126 


013242 


T127 


013346 


T13 


002500 


T130 


013452 


T131 


013556 


T132 


013662 


T133 


013766 


T134 


014072 


T135 


014176 


T136 


014302 


T137 


014406 


T14 


002560 


T140 


014512 


T141 


014616 


T142 


014722 


T143 


015026 


T144 


015132 


T145 


015236 


T146 


015352 


T147 


015466 


T15 


002644 


T150 


015602 


T151 


015716 


T152 


016032 


T153 


016146 


T154 


016262 


T155 


016406 


T16 


AA A 

002732 


T17 


003020 


T2 


001474 


T20 


003106 


T«k4 

T21 


003174 


T22 


003262 


T23 


003350 


T24 


003436 



T25 


003524 


T26 


003612 


T27 


003700 


T3 


001570 


T30 


003766 


T31 


004042 


T32 


004116 


T33 


004172 


T34 


004246 


T35 


004322 


T36 


004452 


T37 


004602 


T4 


001664 


T40 


004732 


T41 


005022 


T42 


005112 


T43 


005202 


T44 


005272 


T45 


00S362 


T46 


005452 


T47 


005542 


T5 


001760 


T50 


005632 


T51 


005722 


T52 


006012 


T53 


006102 


T54 


006172 


T55 


006262 


T56 


006352 


T57 


006442 


T6 


002054 


T60 


006532 


T61 


006622 


T62 


006712 


T63 


007002 


T64 


007072 


T65 


007162 


T66 


007252 


167 


007342 


T7 


002150 


T70 


007432 


171 


007522 


T72 


007612 


T73 


007702 


T74 


007772 


T75 


010062 


T76 


010152 


T77 


010242 


VECl 


001164 


VEC2 


001174 


UROCNT 


017700 


X 


* 000000 


XBIT 


. 000000 


XN 


» 000154 


Y 


- 000011 
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